type t
=
{
mutable currently_running_node : Incremental_kernel__.Node.Packed.t option; |
mutable expert_nodes_created_by_current_node : Incremental_kernel__.Node.Packed.t list; |
}
val expert_nodes_created_by_current_node : t ‑> Incremental_kernel__.Node.Packed.t list
val set_expert_nodes_created_by_current_node : t ‑> Incremental_kernel__.Node.Packed.t list ‑> unit
val currently_running_node : t ‑> Incremental_kernel__.Node.Packed.t option
val set_currently_running_node : t ‑> Incremental_kernel__.Node.Packed.t option ‑> unit
module Fields : sig ... end
val sexp_of_t : t ‑> Base.Sexp.t
val invariant : t ‑> unit
val create : unit ‑> t