Commit f72e1bbd authored by simonm's avatar simonm
Browse files

[project @ 1999-04-27 15:50:07 by simonm]

unboxed 1-tuples are legal.
parent 6a61ff24
......@@ -1069,8 +1069,7 @@ aexp : qvar { $$ = mkident($1); }
| OBRACK list_exps CBRACK { $$ = mkllist($2); }
| OPAREN exp COMMA texps CPAREN { $$ = mktuple(mklcons($2,$4)); }
/* unboxed tuples */
| OUNBOXPAREN exp COMMA texps CUNBOXPAREN
{ $$ = mkutuple(mklcons($2,$4)); }
| OUNBOXPAREN texps CUNBOXPAREN { $$ = mkutuple($2); }
/* only in expressions ... */
| aexp OCURLY rbinds1 CCURLY { $$ = mkrupdate($1,$3); }
......@@ -1278,7 +1277,7 @@ apatc : qvar { $$ = mkident($1); }
| lit_constant { $$ = mklit($1); }
| OPAREN pat CPAREN { $$ = mkpar($2); }
| OPAREN pat COMMA pats CPAREN { $$ = mktuple(mklcons($2,$4)); }
| OUNBOXPAREN pat COMMA pats CUNBOXPAREN { $$ = mkutuple(mklcons($2,$4)); }
| OUNBOXPAREN pats CUNBOXPAREN { $$ = mkutuple($2); }
| OBRACK pats CBRACK { $$ = mkllist($2); }
| LAZY apat { $$ = mklazyp($2); }
;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment