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