From ea8fea2ecce72e05981daf6ea8bf98adf1128f6c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 1 Nov 2005 22:11:48 +0000
Subject: Correction bug #1030 (conséquence du commit 1.84 sur le discharge:
 add_frozen_state était passé à la trappe)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7485 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/library.ml | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/library/library.ml b/library/library.ml
index 09169c4ae8..ce4fa533ce 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -543,9 +543,13 @@ let rec load_library dir =
 
 let cache_require (_,(modl,export)) =
   let ml = list_map_left load_library modl in
-  match export with
+  begin 
+    match export with
     | None -> ()
     | Some export -> open_libraries export ml
+  end;
+  (* To ensure that reset won't pop beyond what the compunit cache knows *)
+  add_frozen_state ()
 
 let load_require  _ (_,(modl,_)) =
   ignore(list_map_left load_library modl)
@@ -582,8 +586,7 @@ let require_library qidl export =
     end
     else
       add_anonymous_leaf (in_require (modrefl,export));
-  if !Options.xml_export then List.iter !xml_require modrefl;
-  add_frozen_state ()
+  if !Options.xml_export then List.iter !xml_require modrefl
 
 let require_library_from_file idopt file export =
   let modref = rec_intern_library_from_file idopt file in
@@ -594,16 +597,7 @@ let require_library_from_file idopt file export =
     end
     else
       add_anonymous_leaf (in_require ([modref],export));
-    if !Options.xml_export then !xml_require modref;
-    add_frozen_state ()
-
-(* called at end of section *)
-
-let reload_library modrefl =
-  add_anonymous_leaf (in_require modrefl);
-  add_frozen_state ()
-
-
+    if !Options.xml_export then !xml_require modref
 
 (* the function called by Vernacentries.vernac_import *)
 
-- 
cgit v1.2.3