pull/174/head
Matthew Butterick 6 years ago
parent b8f1121884
commit 7e105a0043

@ -122,8 +122,7 @@
[(_ COND . BODY) [(_ COND . BODY)
(with-syntax ([SPLICING-TAG (datum->syntax stx (setup:splicing-tag))]) (with-syntax ([SPLICING-TAG (datum->syntax stx (setup:splicing-tag))])
#'(if COND #'(if COND
(with-handlers ([exn:fail? (λ (exn) (error (format "within when/splice, ~a" (exn-message exn))))]) (SPLICING-TAG . BODY)
(SPLICING-TAG . BODY))
(SPLICING-TAG)))])) (SPLICING-TAG)))]))

@ -1 +1 @@
1521332983 1521333768

Loading…
Cancel
Save