summaryrefslogtreecommitdiffstats
path: root/tests/009
diff options
context:
space:
mode:
Diffstat (limited to 'tests/009')
-rw-r--r--tests/009/json.txr4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/009/json.txr b/tests/009/json.txr
index 4350207e..e450b6bb 100644
--- a/tests/009/json.txr
+++ b/tests/009/json.txr
@@ -66,7 +66,7 @@
@(bind pair (p e))@\
@(until)}@\
@(end)}@(ws)@\
- @(bind v @(progn '#H((:equal-based) ,*pair)))@\
+ @(bind v @(progn ^#H((:equal-based) ,*pair)))@\
@(end)
@;
@; Recognize an array.
@@ -74,7 +74,7 @@
@(define array (v))@\
@(local e)@\
@(ws)[@(ws)@(coll :gap 0 :vars (e))@(value e)@/,?/@(until)]@(end)]@(ws)@\
- @(bind v @(progn '#(,*e)))@\
+ @(bind v @(progn ^#(,*e)))@\
@(end)
@;
@; Now parse the input as a JSON object