diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-02-13 22:27:58 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-02-13 22:27:58 +0000 |
commit | f654e2f4a6741cd8697dc495a63108dad7496c88 (patch) | |
tree | 49fb50dd332bb31a04d31ee86ada79aa31a356c0 | |
parent | 5236af70e29bf5848e48bd1613517c126c2d10e0 (diff) |
Test de non bouclage malencontreux dans les niveaux
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3679 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | toplevel/metasyntax.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index d0893107a..d41ce2803 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -529,6 +529,8 @@ let rec merge_entry_types etyps' = function let set_entry_type etyps (x,typ) = let typ = try match List.assoc x etyps, typ with + | _, (_,BorderProd (true,_)) -> + error "The level of the leftmost non-terminal cannot be changed" | ETConstr (n,()), (_,BorderProd (left,_)) -> ETConstr (n,BorderProd (left,None)) | ETConstr (n,()), (_,InternalProd) -> ETConstr (n,InternalProd) |