json: pattern matching test cases and bugfix.

* parser.y (json_val): We must nreverse the json_pairs which
were pushed in right to left order. This didn't matter for
constructing hashes so it was left out, but under quasiquoting
the order matters: it determines the order of evaluation and
of pattern matching.

* tests/011/patmatch.tl: New quasiquoting pattern matching
cases, including JSON.

* y.tab.c.shipped: Regenerated.

1 files changed, 2 insertions, 1 deletions

diff --git a/parser.y b/parser.y
index 1ee48be0..bdc72010 100644
--- a/parser.y
+++ b/parser.y
@@ -969,7 +969,8 @@ json_val : NUMBER               { $$ = $1; }
          | '{' json_pairs '}'   { $$ = if3(hashp($2),
                                            $2,
                                            rl(cons(hash_lit_s,
-                                                   cons(nil, $2)), $2)); }
+                                                   cons(nil, nreverse($2))),
+                                                   $2)); }
          | '~'                  { parser->quasi_level--; }
            n_dot_expr           { parser->quasi_level++;
                                   end_of_json_unquote(scnr);