diff options
| -rw-r--r-- | library/lib.ml | 8 |
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() |