diff options
-rw-r--r-- | parsing/g_constr.ml4 | 2 | ||||
-rw-r--r-- | parsing/pcoq.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index 443a10511..935f6edcf 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -279,7 +279,7 @@ GEXTEND Gram ; pattern: [ "200" RIGHTA [ ] - | "100" LEFTA + | "100" RIGHTA [ p = pattern; "|"; pl = LIST1 pattern SEP "|" -> CPatOr (loc,p::pl) ] | "99" RIGHTA [ ] | "10" LEFTA diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index 40e456061..abe0d8426 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -485,7 +485,7 @@ let default_levels = let default_pattern_levels = [200,Gramext.RightA; - 100,Gramext.LeftA; + 100,Gramext.RightA; 99,Gramext.RightA; 10,Gramext.LeftA; 0,Gramext.RightA] |