simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-10 05:03:58 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: d_pool: fix for ocaml < 5.0

Browse source
This commit is contained in:
Simon Cruanes 2023-06-08 16:35:12 -04:00
parent bc7c6b253e
commit 71981e437c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/d_pool_.ml
View file

@ -14,7 +14,7 @@ let domains_ : worker array lazy_t =
lazy
((* number of domains we spawn. Note that we spawn n-1 domains
because there already is the main domain running. *)
let n = Domain_.recommended_number () - 1 in
let n = max 1 (Domain_.recommended_number () - 1) in
Array.init n (fun i ->
let q = Bb_queue.create () in
let _domain : domain = Domain_.spawn (fun () -> work_ i q) in