Commits

camlspotter committed fb6a370

(--) exported in Infix

Comments (0)

Files changed (2)

         | `Stop acc -> acc
   in
   scan acc 0 xs
+
+module Infix = struct
+  let (--) = (--)
+end
+
+
   (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
+
+