Commit db8089a2 authored by POTTIER Francois's avatar POTTIER Francois

Add [Terminal.foldx].

parent ec0b7cbb
......@@ -292,6 +292,8 @@ module Terminal = struct
let () =
assert (sharp = n - 1)
let foldx f accu =
Misc.foldi sharp f accu
let mapx f =
Misc.mapi sharp f
......
......@@ -201,8 +201,9 @@ module Terminal : sig
val fold: (t -> 'a -> 'a) -> 'a -> 'a
val map: (t -> 'a) -> 'a list
(* [mapx] offers iteration over all terminals except [#]. *)
(* Iteration over all terminals except [#]. *)
val foldx: (t -> 'a -> 'a) -> 'a -> 'a
val mapx: (t -> 'a) -> 'a list
(* [iter_real] offers iteration over all real terminals. *)
......
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