simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-18 00:26:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge db97226081 into 8d3981d983

Browse source
This commit is contained in:
Nicola Mometto 2018-03-06 11:09:42 +00:00 • committed by GitHub
commit 8fa1f85f1d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/iter/CCLazy_list.ml
View file

@ -102,9 +102,9 @@ let rec of_gen g =
Q.(list int) (fun l -> l = (Gen.of_list l |> of_gen |> to_list)) Q.(list int) (fun l -> l = (Gen.of_list l |> of_gen |> to_list))
*) *)
let rec of_list = function let rec of_list ?(f = fun x -> x) = function
| [] -> empty | [] -> empty
| x :: tl -> cons x (of_list tl) | x :: tl -> cons (f x) (of_list ~f tl)
let to_list_rev l = let to_list_rev l =
let rec aux acc = function let rec aux acc = function

2
src/iter/CCLazy_list.mli
View file

@ -56,7 +56,7 @@ type 'a gen = unit -> 'a option
val of_gen : 'a gen -> 'a t val of_gen : 'a gen -> 'a t
val of_list : 'a list -> 'a t val of_list : ?f:('a -> 'b) -> 'a list -> 'b t
val to_list : 'a t -> 'a list val to_list : 'a t -> 'a list