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