simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 11:54:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

perf: small optim in Pool.sequence_a

Browse source
This commit is contained in:
Simon Cruanes 2021-03-24 18:44:28 -04:00
parent dd1cf2a046
commit 8982f87ca7
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/threads/CCPool.ml
View file

@ -517,6 +517,7 @@ module Make(P : PARAM) = struct
(* map an array of futures to a future array *) (* map an array of futures to a future array *)
let sequence_a a = match a with let sequence_a a = match a with
| [||] -> return [||] | [||] -> return [||]
| [| x |] -> map (fun x->[|x|]) x
| _ -> | _ ->
sequence_ (A_ a) sequence_ (A_ a)
(fun () -> Array.map get_nolock_ a) (fun () -> Array.map get_nolock_ a)