From 0c68df5ccdacb5d2ed50b533ad613723914dfee7 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 24 Nov 2000 16:13:28 +0000
Subject: certains effets disparaissent a la sortie des sections, d'autres non
 (selon Summary.survive_section)

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

(limited to 'library/lib.mli')

diff --git a/library/lib.mli b/library/lib.mli
index 96b1941ce2..397e5a53b4 100644
--- a/library/lib.mli
+++ b/library/lib.mli
@@ -14,7 +14,7 @@ open Summary
 type node = 
   | Leaf of obj
   | Module of string
-  | OpenedSection of string
+  | OpenedSection of string * Summary.frozen
   | ClosedSection of bool * string * library_segment * Nametab.module_contents
   | FrozenState of Summary.frozen
 
@@ -41,8 +41,9 @@ val contents_after : section_path option -> library_segment
 
 val open_section : string -> section_path
 val close_section : export:bool ->
-  (section_path -> library_segment -> Nametab.module_contents) -> string
-    -> unit
+  (Summary.frozen -> section_path -> library_segment 
+     -> Nametab.module_contents) 
+  -> string -> unit
 
 val make_path : identifier -> path_kind -> section_path
 val cwd : unit -> dir_path
-- 
cgit v1.2.3