Module Block_group

module Block_group: sig .. end

module Work: sig .. end
type t = {
   mutable num_blocked_threads :int;
   min_reserved_threads :int;
   mutable num_reserved_threads :int;
   max_reserved_threads :int;
   work :Work.t Core.Std.Queue.t;
}
val sexp_of_t : t -> Sexplib.Sexp.t
val create : min_reserved_threads:int -> max_reserved_threads:int -> t
val bogus : t
val invariant : t -> unit