json: omission in quasiquoted array.

* parser.y (json_val): Handle json_vals being a list,
indicating quasiquoting. We must nreverse it and turn it into
a sys:vector-lit form.

* y.tab.c.shipped: Updated.

1 files changed, 5 insertions, 1 deletions

diff --git a/parser.y b/parser.y
index 21064a9f..dcb6954d 100644
--- a/parser.y
+++ b/parser.y
@@ -949,7 +949,11 @@ json_val : NUMBER               { $$ = $1; }
          | '"' litchars '"'     { $$ = $2;
                                   rl($$, num(parser->lineno)); }
          | '[' ']'              { $$ = vector(0, nil); }
-         | '[' json_vals ']'    { $$ = $2; }
+         | '[' json_vals ']'    { $$ = if3(vectorp($2),
+                                           $2,
+                                           rl(cons(vector_lit_s,
+                                                   cons(nreverse($2), nil)),
+                                              $2)); }
          | '{' '}'              { $$ = make_hash(nil, nil, t); }
          | '{' json_pairs '}'   { $$ = if3(hashp($2),
                                            $2,