From 4bc45f2f0c1e2b2e9fb72eda95d79945f346b8d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Mon, 1 Aug 2016 18:52:06 +0200 Subject: [PATCH] Fixes issue with ... ? --- private/lp.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 #,):