diff options
| author | coq | 2002-08-16 10:00:36 +0000 |
|---|---|---|
| committer | coq | 2002-08-16 10:00:36 +0000 |
| commit | b1eef69751a05eebdbdc9d3091e1dae3386218d0 (patch) | |
| tree | e7c3c7b3657f1d15e6931e71f77d1da4114d2b2c /library/lib.ml | |
| parent | a1858ecd34bd7946dab7e7fbf2413036f78f7109 (diff) | |
Strengthenning rules for modules + No modules in sections
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2969 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/lib.ml')
| -rw-r--r-- | library/lib.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/library/lib.ml b/library/lib.ml index 2861333056..323ca60de6 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -268,7 +268,8 @@ let start_module id mp nametab = if Nametab.exists_module dir then errorlabstrm "open_module" (pr_id id ++ str " already exists") ; add_entry oname (OpenedModule (prefix,nametab)); - path_prefix := prefix + path_prefix := prefix; + prefix (* add_frozen_state () must be called in declaremods *) let end_module id = @@ -303,7 +304,8 @@ let start_modtype id mp nametab = if Nametab.exists_cci sp then errorlabstrm "open_modtype" (pr_id id ++ str " already exists") ; add_entry name (OpenedModtype (prefix,nametab)); - path_prefix := prefix + path_prefix := prefix; + prefix let end_modtype id = let sp,nametab = |