From be7331b6cd0c37ec34d0cd867c906a5219bcbd94 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 14 Dec 1999 08:14:34 +0000
Subject: sauvegarde de la valeur de module_name

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@253 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/lib.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/library/lib.ml b/library/lib.ml
index 8686495138..75caa48167 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -185,18 +185,20 @@ let is_section_p sp = list_prefix_of (wd_of_sp sp) !path_prefix
 
 (* State and initialization. *)
 
-type frozen = library_segment
+type frozen = string option * library_segment
 
-let freeze () = !lib_stk
+let freeze () = (!module_name, !lib_stk)
 
 (* module_name is not set ? *)
-let unfreeze stk =
+let unfreeze (mn,stk) =
+  module_name := mn;
   lib_stk := stk;
   recalc_path_prefix ()
 
 let init () =
   lib_stk := [];
   add_frozen_state ();
+  module_name := None;
   path_prefix := [];
   init_summaries()
 
-- 
cgit v1.2.3