Commits

camlspotter  committed fb6a370

(--) exported in Infix

  • Participants
  • Parent commits 0cf0232

Comments (0)

Files changed (2)

File lib/xlist.ml

         | `Stop acc -> acc
   in
   scan acc 0 xs
+
+module Infix = struct
+  let (--) = (--)
+end
+
+

File lib/xlist.mli

   (int -> 'a -> 'b -> [< `Continue of 'a | `Stop of 'a ]) 
   -> 'a -> 'b list -> 'a
   (** [foldl] but stoppable *)
+
+module Infix : sig
+  val (--) : int -> int -> int list
+  (** [same as from_to. [f--t = [f..t]] ] *)
+end
+
+