From 27380a232db8b964cf4782891de035ecf04533ae Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Tue, 14 Mar 2017 23:51:53 +0100 Subject: [PATCH] Bugfix --- private/copy-attribute.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/private/copy-attribute.rkt b/private/copy-attribute.rkt index ebbf64f..5ab269a 100644 --- a/private/copy-attribute.rkt +++ b/private/copy-attribute.rkt @@ -72,7 +72,8 @@ (make-attribute-mapping (quote-syntax vtmp) 'name 'ellipsis-depth 'syntax?)) (define-syntax name - (make-auto-pvar 'ellipsis-depth (quote-syntax stmp))))) + (make-auto-pvar 'ellipsis-depth (quote-syntax stmp))) + (define-pvars name))) ;; TODO ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ vvvvvvvvvvvvvvvvvvvvvvvvvv #'(begin (define-syntax-class extract-non-syntax