Fixes issue with ... ?

2016-08-01 18:52:06 +02:00 · 2016-08-01 18:52:06 +02:00 · 4bc45f2f0c
commit 4bc45f2f0c
parent 0a0505f504
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 ...)) 'flip))
+                   (intr #`(quote-syntax (a-chunk (... name) (... expr) ...))
+                         'flip))
                  #'(begin))
                (macro-to-expand-unsyntax)))
           ;; Default (old) behaviour, which does not support escaping (via #,):