diff options
| author | Kathy Gray | 2014-02-05 17:19:29 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-02-05 17:29:34 +0000 |
| commit | 3cd4d8aed3acfabc2b23e69b19718c1a17cf62f7 (patch) | |
| tree | 28ae118c37381f34e11b57aac302d701e64c35f4 /src/parser.mly | |
| parent | de56a821bcaeda808a260c16e4b7de5d15648425 (diff) | |
Typechecking lets, concrete vectors, and function calls (minus effects)
Diffstat (limited to 'src/parser.mly')
| -rw-r--r-- | src/parser.mly | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/parser.mly b/src/parser.mly index b8b0e43a..5779b3b4 100644 --- a/src/parser.mly +++ b/src/parser.mly @@ -92,8 +92,7 @@ let mk_eannotn _ = Effect_opt_aux(Effect_opt_pure,Unknown) let mk_namesectn _ = Name_sect_aux(Name_sect_none,Unknown) let make_enum_sugar_bounded typ1 typ2 = - ATyp_app(Id_aux(Id("enum"),Unknown), - [typ1; typ2; ATyp_aux(ATyp_inc,Unknown)]) + ATyp_app(Id_aux(Id("enum"),Unknown),[typ1; typ2;]) let make_enum_sugar typ1 = make_enum_sugar_bounded typ1 (ATyp_aux(ATyp_constant(0), Unknown)) @@ -101,7 +100,7 @@ let make_vector_sugar_bounded typ typ1 typ2 = ATyp_app(Id_aux(Id("vector"),Unknown), [typ1;typ2;ATyp_aux(ATyp_inc,Unknown);typ]) let make_vector_sugar typ typ1 = - make_vector_sugar_bounded typ typ1 (ATyp_aux(ATyp_constant(0),Unknown)) + make_vector_sugar_bounded typ (ATyp_aux(ATyp_constant(0),Unknown)) typ1 let space = " " |