diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constrnew.ml4 | 5 | ||||
| -rw-r--r-- | parsing/pcoq.ml4 | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index d5d1db939e..ea736cc91f 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -178,9 +178,10 @@ GEXTEND Gram | "90" RIGHTA [ c1 = operconstr; "->"; c2 = binder_constr -> CArrow(loc,c1,c2) | c1 = operconstr; "->"; c2 = operconstr -> CArrow(loc,c1,c2) ] - | "10" LEFTA + | "10" [ f=operconstr; args=LIST1 appl_arg -> CApp(loc,(None,f),args) - | "@"; f=global; args=LIST0 NEXT -> CAppExpl(loc,(None,f),args) ] + | "@"; f=global; args=LIST0 NEXT -> CAppExpl(loc,(None,f),args) + | "-"; n=INT -> CNumeral (loc,Bignat.NEG (Bignat.of_string n)) ] | "9" [ ] | "1" LEFTA [ c=operconstr; ".("; f=global; args=LIST0 appl_arg; ")" -> diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index 152141bfae..5380115e1e 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -547,7 +547,7 @@ let default_levels_v8 = 100,Gramext.RightA; 99,Gramext.RightA; 90,Gramext.RightA; - 10,Gramext.LeftA; + 10,Gramext.RightA; 9,Gramext.RightA; 1,Gramext.LeftA; 0,Gramext.RightA] |