From 3de3dbdc1eb3c0d299e6ef977aeb30a323c9de95 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 24 Jan 2006 23:20:39 +0000
Subject: Suppression de la dépendance en Map.fold de ocaml dont la sémantique
 a changé entre les version 3.08.4 et 3.09.0 (influe notamment sur l'ordre
 d'application des Hints de auto)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7925 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index df5be249d7..4f64b3a6e4 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -119,10 +119,6 @@ module Stringset = Set.Make(struct type t = string let compare = compare end)
 
 module Stringmap = Map.Make(struct type t = string let compare = compare end)
 
-let stringmap_to_list m = Stringmap.fold (fun s y l -> (s,y)::l) m []
-
-let stringmap_dom m = Stringmap.fold (fun s _ l -> s::l) m []
-
 (* Lists *)
 
 let list_add_set x l = if List.mem x l then l else x::l
-- 
cgit v1.2.3