Sign in
kernel
/
pub
/
scm
/
git
/
git
/
18e1ba10927b15f66a32c86f61133e9adf79f9cf
/
.
/
t
/
t4018
/
scheme-user-defined-define
blob: 35fe7cc9bf6c8e1acfd4804af7163c6a7643d173 [
file
] [
log
] [
blame
]
(
define
-
test
-
suite record\
case
-
tests RIGHT
(
record
-
case
-
1
(
lambda
(
fail
)
(
let
((
a
(
make
-
foo
1
2
)))
(
record
-
case
a
((
bar x
)
(
ChangeMe
))
((
foo a b
)
(+
a b
)))))))