Commit 612c6139 authored by POTTIER Francois's avatar POTTIER Francois

Added [Word.compare].

parent 15678eaf
......@@ -329,6 +329,9 @@ module Terminal = struct
) w;
Buffer.contents b
(* [Pervasives.compare] implements a lexicographic ordering on strings. *)
let compare = Pervasives.compare
end
end
......
......@@ -179,7 +179,8 @@ module Terminal : sig
(* [verbose()] prints statistics about the use of the internal
hash-consing table so far. *)
val verbose: unit -> unit
(* Lexicographic ordering. *)
val compare: word -> word -> int
end
end
......
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