prevent `let` collapse

7 years ago · 50bbc22164
parent d177a7f06f
commit 50bbc22164
1 changed files with 1 additions and 1 deletions
--- a/beautiful-racket-lib/br/syntax.rkt
+++ b/beautiful-racket-lib/br/syntax.rkt
@ -60,7 +60,7 @@
  [(_ () . BODY) #'(begin . BODY)]
  [(_ ([PAT0 STX0] PAT+STX ...) . BODY)
   #'(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
                                                  (format "unable to match pattern ~a" 'PAT0) STX0)])])