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

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

@ -1 +1 @@
1521332983
1521333768

Loading…
Cancel
Save