Commit f388bbc2 authored by POTTIER Francois's avatar POTTIER Francois

Remove [Misc.IntSet].

parent 1afc9c5b
......@@ -80,11 +80,6 @@ let tabulateo number fold n f =
in
get, !c
module IntSet = Set.Make (struct
type t = int
let compare = ( - )
end)
type 'a iter = ('a -> unit) -> unit
let separated_iter_to_string printer separator iter =
......
......@@ -58,10 +58,6 @@ val tabulateo: ('a -> int) -> ((unit -> 'a -> unit) -> unit -> unit) -> int -> (
val ( $$ ) : 'a -> ('a -> 'b) -> 'b
(* Sets of strings and maps over strings. *)
module IntSet : Set.S with type elt = int
(* [separated_list_to_string printer sep l] converts [l] into a string
representation built by using [printer] on each element and [sep] as
a separator. *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment