Module Execution_context

module Execution_context: Execution_context

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