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

small fix

Browse source
This commit is contained in:
Simon Cruanes 2023-06-01 22:14:44 -04:00
parent d87dff529d
commit 2d9e834ccc
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 0 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/moonpool.ml
View file

@ -1,5 +1,3 @@
type 'a or_error = ('a, exn * Printexc.raw_backtrace) result
let start_thread_on_some_domain f x = let start_thread_on_some_domain f x =
let did = Random.int (D_pool_.n_domains ()) in let did = Random.int (D_pool_.n_domains ()) in
D_pool_.run_on_and_wait did (fun () -> Thread.create f x) D_pool_.run_on_and_wait did (fun () -> Thread.create f x)

2
src/moonpool.mli
View file

@ -4,8 +4,6 @@
pools of [Thread.t] which live within a fixed pool of [Domain.t]. pools of [Thread.t] which live within a fixed pool of [Domain.t].
*) *)
type 'a or_error = ('a, exn * Printexc.raw_backtrace) result
module Pool = Pool module Pool = Pool
val start_thread_on_some_domain : ('a -> unit) -> 'a -> Thread.t val start_thread_on_some_domain : ('a -> unit) -> 'a -> Thread.t