From 5e7c99f10a23400c1fa474cbc161d6180df1a14d Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Thu, 16 Apr 2015 17:41:52 -0400
Subject: [PATCH] fix tests

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

diff --git a/afl/reader.rkt b/afl/reader.rkt
index 922eefc..ff5fef5 100644
--- a/afl/reader.rkt
+++ b/afl/reader.rkt
@@ -79,11 +79,11 @@
 (module+ test
   (check-equal? (afl-read (open-input-string "#λ(+ % %2)"))
                 '(lambda (%1 %2)
-                   (define-syntax % (make-rename-transformer #'%1))
+                   (define-syntax % (#%app make-rename-transformer #'%1))
                    (+ % %2)))
   (check-equal? (afl-read (open-input-string "#λ(+ _ _2)") #:arg-str "_")
                 '(lambda (_1 _2)
-                   (define-syntax _ (make-rename-transformer #'_1))
+                   (define-syntax _ (#%app make-rename-transformer #'_1))
                    (+ _ _2)))
   )
 
@@ -132,24 +132,24 @@
   (define chk (compose1 syntax->datum parse))
   (check-equal? (chk #'(+))
                 '(lambda ()
-                  (define-syntax % (make-rename-transformer #'%1))
+                  (define-syntax % (#%app make-rename-transformer #'%1))
                   (+)))
   (check-equal? (chk #'(+ 2 %1 %1))
                 '(lambda (%1)
-                  (define-syntax % (make-rename-transformer #'%1))
+                  (define-syntax % (#%app make-rename-transformer #'%1))
                   (+ 2 %1 %1)))
   (check-equal? (chk #'(+ 2 %3 %2 %1))
                 '(lambda (%1 %2 %3)
-                  (define-syntax % (make-rename-transformer #'%1))
+                  (define-syntax % (#%app make-rename-transformer #'%1))
                   (+ 2 %3 %2 %1)))
   (check-equal? (chk #'(apply list* % %&))
                 '(lambda (%1 . %&)
-                  (define-syntax % (make-rename-transformer #'%1))
+                  (define-syntax % (#%app make-rename-transformer #'%1))
                   (apply list* % %&)))
   (check-equal? (parameterize ([current-arg-string "_"])
                   (chk #'(apply list* _ _&)))
                 '(lambda (_1 . _&)
-                  (define-syntax _ (make-rename-transformer #'_1))
+                  (define-syntax _ (#%app make-rename-transformer #'_1))
                   (apply list* _ _&))))
 
 ;; parse-args : Stx -> KW-Formals-Stx