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