Commit de2b9f9d authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-03-04 17:31:02 by afrisch] Precedence

Original author: afrisch
Date: 2005-03-04 17:31:02+00:00
parent e26ece9b
...@@ -282,12 +282,6 @@ EXTEND ...@@ -282,12 +282,6 @@ EXTEND
let b = (p, Var id_dummy) in let b = (p, Var id_dummy) in
exp loc (Transform (e,[b])) exp loc (Transform (e,[b]))
] ]
|
[ e = expr; "."; l = [IDENT | keyword ];
tyargs = [ "with"; "{"; pl = LIST0 pat; "}" -> pl | -> [] ]
->
exp loc (Dot (e, label l,tyargs))
]
| [ | [
e1 = SELF; IDENT "div"; e2 = expr -> apply_op2 loc "/" e1 e2 e1 = SELF; IDENT "div"; e2 = expr -> apply_op2 loc "/" e1 e2
| e1 = SELF; IDENT "mod"; e2 = expr -> apply_op2 loc "mod" e1 e2 | e1 = SELF; IDENT "mod"; e2 = expr -> apply_op2 loc "mod" e1 e2
...@@ -295,7 +289,13 @@ EXTEND ...@@ -295,7 +289,13 @@ EXTEND
] ]
| "no_appl" | "no_appl"
[
[ e = expr; "."; l = [IDENT | keyword ];
tyargs = [ "with"; "{"; pl = LIST0 pat; "}" -> pl | -> [] ]
->
exp loc (Dot (e, label l,tyargs))
]
| [
"("; l = LIST1 expr SEP ","; ")" -> exp loc (tuple l) "("; l = LIST1 expr SEP ","; ")" -> exp loc (tuple l)
| "["; l = LIST0 seq_elem; e = OPT [ ";"; e = expr -> e ]; | "["; l = LIST0 seq_elem; e = OPT [ ";"; e = expr -> e ];
loc_end = ["]" -> loc] -> loc_end = ["]" -> loc] ->
......
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