module Raw_scheduler: sig .. end
module Execution_context: Execution_context
module Clock_event: Raw_clock_event
module Ivar: Raw_ivar
module Tail: Raw_tail
val debug : bool
type 'a tail = ('a, Execution_context.t) Tail.t
val sexp_of_tail : 'b -> 'a tail -> Core.Std.Sexp.t
module T: sig .. end
include T
val t : t
val invariant : unit -> unit
val current_execution_context : unit -> Execution_context.t
val set_execution_context : Execution_context.t Core.Std.sexp_opaque -> unit
val with_execution_context : Execution_context.t Core.Std.sexp_opaque ->
f:(unit -> 'a) -> 'a
val add_job : Execution_context.t Job.t -> unit