diff --git a/pollen/core.rkt b/pollen/core.rkt index 3a2208a..4e0d191 100644 --- a/pollen/core.rkt +++ b/pollen/core.rkt @@ -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 ...)) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index b44846e..337d289 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1521073365 +1521242140