commit 1c7d513cf44d90c77386a899c67a123aa2488cad parent 72142d5374f2268ab2633b5a4077719a6b3352b9 Author: Georges Dupéron <georges.duperon@gmail.com> Date: Sun, 1 Jan 2017 22:22:02 +0100 Forgot to use the patched version of extend-reader in the previous commit Diffstat:
| M | aful/reader.rkt | | | 14 | +++++++------- |
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git 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)))