From 78b507dd1d02efad8196bcdeb855fce568e575dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Sun, 1 Jan 2017 22:22:18 +0100
Subject: [PATCH] Forgot to use the patched version of extend-reader in the
 previous commit

---
 aful/reader.rkt | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/aful/reader.rkt b/aful/reader.rkt
index f600189..7bf5597 100644
--- a/aful/reader.rkt
+++ b/aful/reader.rkt
@@ -62,14 +62,14 @@
 (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))
-                         #:hygiene? #f)
+   (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)))
 
 (define (make-aful-readtable [orig-rt (current-readtable)]