mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 19:25:28 -05:00
fix build
This commit is contained in:
parent
ca7801a854
commit
133aed683c
1 changed files with 1 additions and 15 deletions
|
|
@ -838,21 +838,7 @@ module Infix : sig
|
||||||
@since 2.8 *)
|
@since 2.8 *)
|
||||||
include CCShimsMkLet_.S with type 'a t_let := 'a list
|
include CCShimsMkLet_.S with type 'a t_let := 'a list
|
||||||
|
|
||||||
val (and&) : 'a list -> 'b list -> ('a * 'b) list
|
include CCShimsMkLetList_.S
|
||||||
(** [(and&)] is [combine_chop]. It allows to perform a synchronized product between two lists,
|
|
||||||
stopping gently at the shortest. Usable both with [let+] and [let*].
|
|
||||||
{[
|
|
||||||
# let f xs ys zs =
|
|
||||||
let+ x = xs
|
|
||||||
and& y = ys
|
|
||||||
and& z = zs in
|
|
||||||
x + y + z;;
|
|
||||||
val f : int list -> int list -> int list -> int list = <fun>
|
|
||||||
# f [1;2] [5;6;7] [10;10];;
|
|
||||||
- : int list = [16; 18]
|
|
||||||
]}
|
|
||||||
@since 3.1
|
|
||||||
*)
|
|
||||||
end
|
end
|
||||||
|
|
||||||
(** Let operators on OCaml >= 4.08.0, nothing otherwise
|
(** Let operators on OCaml >= 4.08.0, nothing otherwise
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue