Sign in
googlers
/
jrn
/
git
/
337b4d400023d22207bcc3c29e9ebab31bf96fc2
/
.
/
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
)))))))