diff options
Diffstat (limited to 'tests/009/json.txr')
| -rw-r--r-- | tests/009/json.txr | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/009/json.txr b/tests/009/json.txr index 5c2732e8..1c705de1 100644 --- a/tests/009/json.txr +++ b/tests/009/json.txr @@ -57,16 +57,15 @@ @(end) @; @; Recognize an object: a collection of string/value pairs, -@; turning them into an equal-based hash table +@; turning them into a list. @; @(define object (v))@\ @(local p e pair)@\ - @(ws){@(ws)@(coll :gap 0 :vars (pair))@\ + @(ws){@(ws)@(coll :gap 0 :vars (v))@\ @(string p):@(value e)@/,?/@\ - @(bind pair (p e))@\ + @(bind v (p e))@\ @(until)}@\ @(end)}@(ws)@\ - @(bind v @(progn ^#H((:equal-based) ,*pair)))@\ @(end) @; @; Recognize an array. |