diff options
| author | herbelin | 2000-12-20 19:50:39 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-20 19:50:39 +0000 |
| commit | ec66fade3f217897338cb0012eb06145d809edc8 (patch) | |
| tree | c3f754291748250b6f2508b4697ea4af32e02287 /library/lib.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/lib.ml')
| -rw-r--r-- | library/lib.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/lib.ml b/library/lib.ml index 4d95bdce9c..53b5a21b04 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -1,6 +1,7 @@ (* $Id$ *) +open Pp open Util open Names open Libobject @@ -106,6 +107,8 @@ let contents_after = function let open_section s = let sp = make_path (id_of_string s) OBJ in + if Nametab.exists_module sp then + errorlabstrm "open_section" [< 'sTR (s^" already exists") >]; add_entry sp (OpenedSection (s, freeze_summaries())); path_prefix := !path_prefix @ [s]; sp |