Fixes bug with … (again)

2016-08-01 18:58:27 +02:00 · 2016-08-01 18:58:27 +02:00 · f6facffe7a
commit f6facffe7a
parent 4bc45f2f0c
1 changed files with 2 additions and 1 deletions
--- a/private/lp.rkt
+++ b/private/lp.rkt
@ -55,7 +55,8 @@
                             (syntax-local-introduce #'here)))
                  (define intr (make-syntax-delta-introducer b a))
                  (syntax-local-lift-expression
-                   (intr #`(quote-syntax (a-chunk (... name) (... expr) ...))
+                   (intr #`(quote-syntax (a-chunk ((... ...) name)
+                                                  ((... ...) expr) ...))
                         'flip))
                  #'(begin))
                (macro-to-expand-unsyntax)))