diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 19:50:39 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 19:50:39 +0000 |
commit | ec66fade3f217897338cb0012eb06145d809edc8 (patch) | |
tree | c3f754291748250b6f2508b4697ea4af32e02287 /library/nametab.ml | |
parent | be670deace370127c44e1ee3583e61ed6492382a (diff) |
Test pour empêcher 2 sections de même noms
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1172 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nametab.ml')
-rwxr-xr-x | library/nametab.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 7b92a40cc..57002455b 100755 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -164,6 +164,9 @@ let rec rec_open_module_contents qid = let exists_cci sp = try let _ = locate (qualid_of_sp sp) in true with Not_found -> false +let exists_module sp = + try let _ = locate_module (qualid_of_sp sp) in true with Not_found -> false + (********************************************************************) (* Registration of persistent tables as a global table and rollback *) |