Sign in
googlers
/
jrn
/
git
/
c96ecfe6a5d6167b14cac591d9fcbc73f778ed23
/
.
/
t
/
t4018
/
scheme-define-syntax
blob: 7d5e99e0fceb7b0f11af438d24d7ac3b648542ec [
file
] [
log
] [
blame
]
(
define
-
syntax define
-
test
-
suite RIGHT
(
syntax
-
rules
()
((
_ suite
-
name
(
name test
)
ChangeMe
...)
(
define suite
-
name
(
let
((
tests
`((name . ,test) ...)))
(lambda ()
(run-suite 'suite-name tests)))))))