diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-27 17:04:04 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-27 17:04:04 +0000 |
| commit | a467cd39586159fa660e5f5dc557efaad03426c9 (patch) | |
| tree | cf2f25df4a03381b996144851585c66fe675299b /parsing/pcoq.ml4 | |
| parent | 0df8d672aab163f85a815ff41965c726eb5f3db1 (diff) | |
Bug mauvais nom d'entrée binder_constr quand récursion gauche
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6259 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pcoq.ml4')
| -rw-r--r-- | parsing/pcoq.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index 0f6951d47..081d7aeec 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -774,7 +774,9 @@ let is_self from e = let is_binder_level from e = match from, e with - ETConstr(200,()), ETConstr(NumLevel 200,_) -> not !Options.v7 + ETConstr(200,()), + ETConstr(NumLevel 200,(BorderProd(false,_)|InternalProd)) -> + not !Options.v7 | _ -> false let rec symbol_of_production assoc from forpat typ = @@ -799,5 +801,3 @@ let rec symbol_of_production assoc from forpat typ = | (eobj,Some None,_) -> Gramext.Snext | (eobj,Some (Some (lev,cur)),_) -> Gramext.Snterml (Gram.Entry.obj eobj,constr_prod_level assoc cur lev) - - |