diff --git a/aful/reader.rkt b/aful/reader.rkt index 5347bff..202f9f2 100644 --- a/aful/reader.rkt +++ b/aful/reader.rkt @@ -64,13 +64,13 @@ (require syntax/strip-context) (define ((wrap-reader-unhygienic p) . p-args) (strip-context - (apply (extend-reader p - (λ ([orig-rt (current-readtable)] - #:outer-scope outer-scope - #:arg-str [arg-str (current-arg-string)]) - (make-aful-readtable orig-rt - #:outer-scope (λ (stx [mode 'flip]) stx) - #:arg-str arg-str)) + (apply (extend-reader-unhygienic p + (λ ([orig-rt (current-readtable)] + #:outer-scope outer-scope + #:arg-str [arg-str (current-arg-string)]) + (make-aful-readtable orig-rt + #:outer-scope (λ (stx [mode 'flip]) stx) + #:arg-str arg-str)) #:hygiene? #f) p-args)))