From 1c7d513cf44d90c77386a899c67a123aa2488cad 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:02 +0100
Subject: [PATCH] Forgot to use the patched version of extend-reader in the
 previous commit

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

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)))