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