mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-05 19:00:33 -05:00
7 lines
203 B
OCaml
7 lines
203 B
OCaml
let start_thread_on_some_domain f x =
|
|
let did = Random.int (D_pool_.n_domains ()) in
|
|
D_pool_.run_on_and_wait did (fun () -> Thread.create f x)
|
|
|
|
module Pool = Pool
|
|
module Fut = Fut
|
|
module Chan = Chan
|