Module State.Only_in_debug
type t
= Incremental__.Types.Only_in_debug.t
=
{
mutable currently_running_node : Incremental__.Node.Packed.t option;
mutable expert_nodes_created_by_current_node : Incremental__.Node.Packed.t list;
}
val expert_nodes_created_by_current_node : t -> Incremental__.Node.Packed.t list
val set_expert_nodes_created_by_current_node : t -> Incremental__.Node.Packed.t list -> unit
val currently_running_node : t -> Incremental__.Node.Packed.t option
val set_currently_running_node : t -> Incremental__.Node.Packed.t option -> unit
module Fields : sig ... end
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val invariant : t -> unit
val create : unit -> t