run-timer ( timer -- timer )

Vocabulary

timers.private

Inputs

timer

an object

Outputs

timer

an object

Definition

USING: accessors combinators kernel ;

IN: timers.private

: run-timer ( timer -- timer )
    dup interval-nanos >>next-nanos t >>quotation-running?
    dup quot>> ( -- ) call-effect f >>quotation-running? ;