timer-loop ( timer -- )

Vocabulary

timers.private

Inputs

timer

an object

Outputs

None

Definition

USING: accessors kernel math system threads ;

IN: timers.private

: timer-loop ( timer -- )
    [ next-nanos ] [
        dup nano-count <=
        [ drop run-timer yield ] [ sleep-until ] if
    ] while* dup thread>> self eq? [ f >>thread ] when drop ;