repo.or.cz
/
git.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
userdiff: add support for Scheme
[git.git]
/
t
/
t4018
/
scheme-user-defined-define
blob
35fe7cc9bf6c8e1acfd4804af7163c6a7643d173
1
(define-test-suite record\ case-tests RIGHT
2
(record-case-1 (lambda (fail)
3
(let ((a (make-foo 1 2)))
4
(record-case a
5
((bar x) (ChangeMe))
6
((foo a b) (+ a b)))))))