diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-05 21:24:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-05 21:24:18 +0000 |
| commit | c2e849ca61c24253956d6b9b1e3082e58fcf08c6 (patch) | |
| tree | c1d53f3d8619f4eeb0efa8bc0e4915a4dbf7786a /library/declare.ml | |
| parent | 7f8d4cf7dd30ab3d3f1e19094d85164adfc1931e (diff) | |
Interdiction de faire 2 variables de même nom court
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1828 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/declare.ml')
| -rw-r--r-- | library/declare.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/library/declare.ml b/library/declare.ml index 81021d1be..db1ae9d98 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -70,7 +70,11 @@ let _ = Summary.declare_summary "VARIABLE" Summary.survive_section = false } let cache_variable (sp,(id,(d,_,_) as vd)) = +(* if Nametab.exists_cci sp then +*) + (* Constr raisonne sur les noms courts *) + if List.mem_assoc id (current_section_context ()) then errorlabstrm "cache_variable" [< pr_id (basename sp); 'sTR " already exists" >]; begin match d with (* Fails if not well-typed *) |