9 lines
160 B
Racket
9 lines
160 B
Racket
|
(require (for-syntax syntax/parse))
|
||
|
|
|
||
|
|
(define-syntax list-when
|
||
|
|
(syntax-parser
|
||
|
|
[(_ test:expr body:expr)
|
||
|
|
#'(if test
|
||
|
|
body
|
||
|
|
null)]))
|