parallel.kernel
For_testing.Runqueue
parallel
parallel.arrays
parallel.async
parallel.bench
parallel.scheduler
parallel.sequence
parallel.test
ppxlib
yojson
type t
val create : Base.unit -> t @ local
val tokens : t @ local -> Base.int
val with_jobs : t @ local -> (('l * 'll) Hlist.Gen(Thunk).t @ once portable -> (f:(t @ local -> Base.unit) @ local -> Base.unit) @ local once) @ local
val promote : t @ local -> (n:Base.int -> (f:(tokens:Base.int -> Base.unit) @ local -> Base.unit) @ local) @ local