From ae3a6c63018d5743c16ab388d3e1f9bfde0eb43d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 10 May 2008 16:35:46 +0000
Subject: Correction bug #1842 + correction bug initialisation introduit dans
 commit 10916

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10917 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/lib.ml  | 12 ++++++------
 library/lib.mli |  2 ++
 2 files changed, 8 insertions(+), 6 deletions(-)

(limited to 'library')

diff --git a/library/lib.ml b/library/lib.ml
index 1db433c19b..ae1a41ca13 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 ba04fa1b75..da8ace0481 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
 
-- 
cgit v1.2.3