Module Incremental__.Step_function
include module type of sig ... end
type 'a t
= 'a Incremental__Types.Step_function.t
=
{
main : 'a Incremental__Types.Node.t;
mutable value : 'a;
mutable upcoming_steps : (Incremental__.Import.Time_ns.t * 'a) list;
mutable alarm : Incremental__Types.Alarm.t;
clock : Incremental__Types.Clock.t;
}
include Core_kernel.Invariant.S1 with type 'a t := 'a t
val invariant : 'a Base__.Invariant_intf.inv -> 'a t Base__.Invariant_intf.inv
include Incremental__.Sexp_of.S1 with type 'a t := 'a t
val sexp_of_t : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Ppx_sexp_conv_lib.Sexp.t
val advance : _ t -> time_passed:(Incremental__.Import.Time_ns.t -> bool) -> unit