add `for/splice`

pull/174/head
Matthew Butterick 7 years ago
parent 829bf2b421
commit 5733b102f3

@ -126,6 +126,13 @@
(SPLICING-TAG)))]))
(provide for/splice)
(define-syntax (for/splice stx)
(syntax-case stx ()
[(_ ([ID SEQ] ...) . BODY)
#'(when/splice #t (for/list ([ID SEQ] ...)
(when/splice #t . BODY)))]))
(provide when/block) ; bw compat
(define-syntax-rule (when/block cond body ...)
(when/splice cond body ...))

@ -1 +1 @@
1521073365
1521242140

Loading…
Cancel
Save