From 36e6478a343fc93b849a2019b78ef5b3d8542910 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 18 Feb 2005 21:37:35 +0000
Subject: Code mort

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6738 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/declaremods.ml  | 16 ----------------
 library/declaremods.mli | 11 +++++------
 2 files changed, 5 insertions(+), 22 deletions(-)

diff --git a/library/declaremods.ml b/library/declaremods.ml
index 1ac7eb823f..dcda0bf25a 100644
--- a/library/declaremods.ml
+++ b/library/declaremods.ml
@@ -783,22 +783,6 @@ let declare_module interp_modtype interp_modexpr id args mty_o mexpr_o =
 
 (*s Iterators. *)
 
-let fold_all_segments insec f x =
-  let acc' = 
-    MPmap.fold 
-      (fun _ (prefix,objects) acc -> 
-	 let apply_obj acc (id,obj) = f acc (make_oname prefix id) obj in
-	   List.fold_left apply_obj acc objects)
-      !modtab_objects x
-  in
-  let rec apply_node acc = function
-    | sp, Leaf o -> f acc sp o
-    | _, ClosedSection (_,_,seg) -> 
-	if insec then List.fold_left apply_node acc seg else acc
-    | _ -> acc
-  in
-    List.fold_left apply_node acc' (Lib.contents_after None)
-
 let iter_all_segments insec f =
   let _ = 
     MPmap.iter 
diff --git a/library/declaremods.mli b/library/declaremods.mli
index 5fce1fa48c..394f8d65b7 100644
--- a/library/declaremods.mli
+++ b/library/declaremods.mli
@@ -96,13 +96,12 @@ val really_import_module : module_path -> unit
 val import_module : bool -> module_path -> unit
 
 
-(*s [fold_all_segments] and [iter_all_segments] iterate over all
-    segments, the modules' segments first and then the current
-    segment. Modules are presented in an arbitrary order. The given
-    function is applied to all leaves (together with their section
-    path). The boolean indicates if we must enter closed sections. *)
+(*s [iter_all_segments] iterate over all segments, the modules'
+    segments first and then the current segment. Modules are presented
+    in an arbitrary order. The given function is applied to all leaves
+    (together with their section path). The boolean indicates if we
+    must enter closed sections. *)
 
-val fold_all_segments : bool -> ('a -> object_name -> obj -> 'a) -> 'a -> 'a
 val iter_all_segments : bool -> (object_name -> obj -> unit) -> unit
 
 
-- 
cgit v1.2.3