Module Execution_context

module Execution_context: sig .. end

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string

module Monitor: Raw_monitor

type 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