diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-12 17:49:21 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-12 17:49:21 +0000 |
| commit | cb1ae314411d78952062e5092804b85d981ad6e1 (patch) | |
| tree | 52b9a4058c89b5849d875a4c1129951f35e9c1b1 /parsing/extend.ml | |
| parent | 7cb6a61133b6e3c2cd5601282a1f472ff0104c1f (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3761 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/extend.ml')
| -rw-r--r-- | parsing/extend.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parsing/extend.ml b/parsing/extend.ml index 14a33a656..076f7f026 100644 --- a/parsing/extend.ml +++ b/parsing/extend.ml @@ -175,7 +175,8 @@ let explicitize_prod_entry pos univ nt = | "constr5" -> ETConstr (5,pos) | "constr6" -> ETConstr (6,pos) | "constr7" -> ETConstr (7,pos) - | "constr8" | "constr" -> ETConstr (8,pos) + | "constr8" -> ETConstr (8,pos) + | "constr" when !Options.v7 -> ETConstr (8,pos) | "constr9" -> ETConstr (9,pos) | "constr10" | "lconstr" -> ETConstr (10,pos) | "pattern" -> ETPattern |