[Mldonkey-commits] Changes to mldonkey/src/utils/lib/queues.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/queues.ml
diff -u mldonkey/src/utils/lib/queues.ml:1.2 
mldonkey/src/utils/lib/queues.ml:1.3
--- mldonkey/src/utils/lib/queues.ml:1.2        Fri Apr 16 17:14:56 2004
+++ mldonkey/src/utils/lib/queues.ml    Sat Nov 12 11:12:01 2005
@@ -89,7 +89,7 @@
       val compare : t -> t -> int
     end) = struct
     
-    module InsidesSet = Set.Make (
+    module InsidesSet = Set2.Make (
         struct
           type t = int * M.t
           let compare (t1,s1) (t2,s2) = 
@@ -142,7 +142,7 @@
 
       (*
     let max_first compare =
-      let module InsideSet = Set.Make(struct
+      let module InsideSet = Set2.Make(struct
             type t = source
             let compare = compare
           end) in
@@ -161,7 +161,7 @@
         }
 
     let min_first compare =
-      let module InsideSet = Set.Make(struct
+      let module InsideSet = Set2.Make(struct
             type t = source
             let compare = compare
           end) in