sig
type t
val invariant : t Core_kernel.Invariant_intf.inv
val create : unit -> Busy_pollers.t
val is_empty : Busy_pollers.t -> bool
val add :
Busy_pollers.t ->
(unit -> [ `Continue_polling | `Stop_polling of 'a ]) ->
'a Import.Deferred.t
val poll : Busy_pollers.t -> unit
val sexp_of_t : Busy_pollers.t -> Sexplib.Sexp.t
end