From b1eef69751a05eebdbdc9d3091e1dae3386218d0 Mon Sep 17 00:00:00 2001
From: coq
Date: Fri, 16 Aug 2002 10:00:36 +0000
Subject: 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
---
 library/lib.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'library/lib.ml')

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 = 
-- 
cgit v1.2.3