prevent `let` collapse

pull/13/merge
Matthew Butterick 7 years ago
parent d177a7f06f
commit 50bbc22164

@ -60,7 +60,7 @@
[(_ () . BODY) #'(begin . BODY)] [(_ () . BODY) #'(begin . BODY)]
[(_ ([PAT0 STX0] PAT+STX ...) . BODY) [(_ ([PAT0 STX0] PAT+STX ...) . BODY)
#'(syntax-parse/easy STX0 PAT0 #'(syntax-parse/easy STX0 PAT0
[PAT0 (with-pattern (PAT+STX ...) (let () . BODY))] [PAT0 (with-pattern (PAT+STX ...) (let () (void) . BODY))]
[else (raise-syntax-error 'with-pattern [else (raise-syntax-error 'with-pattern
(format "unable to match pattern ~a" 'PAT0) STX0)])]) (format "unable to match pattern ~a" 'PAT0) STX0)])])

Loading…
Cancel
Save