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

1 files 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()