Module Execution_context

module Execution_context: sig .. end

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string
module Monitor: Raw_monitor
type t = {
   monitor :t Monitor.t_ Backpatched.t;
   priority :Priority.t;
   backtrace_history :Core.Std.Backtrace.t list;
   mutable kill_index :Kill_index.t;
}
val sexp_of_t : t -> Sexplib.Sexp.t
val kill_index : t -> Kill_index.t
val set_kill_index : t -> Kill_index.t -> unit
val backtrace_history : t -> Core.Std.Backtrace.t list
val priority : t -> Priority.t
val monitor : t -> t Monitor.t_
module Fields: sig .. end
val invariant : t -> unit
val main_monitor_hole : t Monitor.t_ Backpatched.Hole.t
val main : t
val monitor : t -> t Monitor.t_
val create_like : ?monitor:t Monitor.t_ ->
?priority:Priority.t -> t -> t
val record_backtrace : t -> t