Module Raw_monitor

module Raw_monitor: sig .. end

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string

type 'execution_context t_ = {

	`name :Core.Std.Info.t;`
	`here :Core.Std.Source_code_position.t option;`
	`id :int;`
	`parent :'execution_context t_ option;`
	`errors :(exn, 'execution_context) Raw_tail.t;`
	`mutable has_seen_error :bool;`
	`mutable someone_is_listening :bool;`
	`mutable kill_index :Kill_index.t;`

}

val kill_index : 'a t_ -> Kill_index.t

val set_kill_index : 'a t_ -> Kill_index.t -> unit

val someone_is_listening : 'a t_ -> bool

val set_someone_is_listening : 'a t_ -> bool -> unit

val has_seen_error : 'a t_ -> bool

val set_has_seen_error : 'a t_ -> bool -> unit

val errors : 'a t_ -> (exn, 'a) Raw_tail.t

val parent : 'a t_ -> 'a t_ option

val id : 'a t_ -> int

val here : 'a t_ -> Core.Std.Source_code_position.t option

val name : 'a t_ -> Core.Std.Info.t

module Fields_of_t_: sig .. end

module Pretty: sig .. end

val to_pretty : 'a t_ -> Pretty.one Core.Std.List.t

val sexp_of_t_ : 'a -> 'b t_ -> Sexplib.Sexp.t

exception Shutdown

val update_kill_index : 'a t_ -> global_kill_index:Kill_index.t -> unit