Commit 9699a46d authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-06-03 20:43:37 by afrisch] Parsing bug with rec types

Original author: afrisch
Date: 2004-06-03 20:43:37+00:00
parent 8a77e2ff
......@@ -193,7 +193,7 @@ EXTEND
| "transform" | "fun" | "in"
| "let" | "type" | "debug" | "include"
| "and" | "validate" | "schema" | "namespace" | "ref" | "alias"
| "not" | "as"
| "not" | "as" | "where"
]
-> a
]
......@@ -497,7 +497,7 @@ EXTEND
];
pat: [
[ x = pat; IDENT "where";
[ x = pat; "where";
b = LIST1 [ a = IDENT; "="; y = pat -> (ident a,y) ] SEP "and"
-> mk loc (Recurs (x,b)) ]
| RIGHTA [ x = pat; "->"; y = pat -> mk loc (Arrow (x,y)) ]
......
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