diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/egrammar.ml | 2 | ||||
| -rw-r--r-- | parsing/g_constrnew.ml4 | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index 54067bf5d9..88c8211670 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -57,7 +57,7 @@ let default_levels_v8 = 80,Gramext.RightA; 40,Gramext.LeftA; 10,Gramext.LeftA; - 9,Gramext.LeftA; + 9,Gramext.RightA; 1,Gramext.LeftA; 0,Gramext.RightA] diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index 9aed2b1d55..c34f82efa5 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -153,7 +153,7 @@ GEXTEND Gram [ [ c = operconstr -> c ] ] ; constr: - [ [ c = operconstr LEVEL "9L" -> c ] ] + [ [ c = operconstr LEVEL "9" -> c ] ] ; tuple_constr: [ @@ -175,13 +175,13 @@ GEXTEND Gram | "10L" LEFTA [ f=operconstr; args=LIST1 appl_arg -> CApp(loc,(None,f),args) | "@"; f=global; args=LIST0 NEXT -> CAppExpl(loc,(None,f),args) ] - | "9L" LEFTA + | "9" [ ] + | "1L" LEFTA [ c=operconstr; ".("; f=global; args=LIST0 appl_arg; ")" -> CApp(loc,(Some (List.length args+1),CRef f),args@[c,None]) | c=operconstr; ".("; "@"; f=global; args=LIST0 NEXT; ")" -> - CAppExpl(loc,(Some (List.length args+1),f),args@[c]) ] - | "1L" LEFTA - [ c=operconstr; "%"; key=IDENT -> CDelimiters (loc,key,c) ] + CAppExpl(loc,(Some (List.length args+1),f),args@[c]) + | c=operconstr; "%"; key=IDENT -> CDelimiters (loc,key,c) ] | "0" [ c=atomic_constr -> c | c=match_constr -> c |