diff --git a/private/lp.rkt b/private/lp.rkt index 1c0c02d0..2b7d410f 100644 --- 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 #,):