diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/lib.ml | 12 | ||||
| -rw-r--r-- | library/lib.mli | 2 |
2 files changed, 8 insertions, 6 deletions
diff --git a/library/lib.ml b/library/lib.ml index 1db433c19..ae1a41ca1 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -489,15 +489,15 @@ let section_instance = function | IndRef (kn,_) | ConstructRef ((kn,_),_) -> KNmap.find kn (snd (pi2 (List.hd !sectab))) -let init () = sectab := [] -let freeze () = !sectab -let unfreeze s = sectab := s +let init_sectab () = sectab := [] +let freeze_sectab () = !sectab +let unfreeze_sectab s = sectab := s let _ = Summary.declare_summary "section-context" - { Summary.freeze_function = freeze; - Summary.unfreeze_function = unfreeze; - Summary.init_function = init; + { Summary.freeze_function = freeze_sectab; + Summary.unfreeze_function = unfreeze_sectab; + Summary.init_function = init_sectab; Summary.survive_module = false; Summary.survive_section = false } diff --git a/library/lib.mli b/library/lib.mli index ba04fa1b7..da8ace048 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -157,6 +157,8 @@ type frozen val freeze : unit -> frozen val unfreeze : frozen -> unit +val init : unit -> unit + val declare_initial_state : unit -> unit val reset_initial : unit -> unit |