interval-nanos ( timer -- n/f )

Vocabulary

timers.private

Inputs

timer

an object

Outputs

n/f

an object

Definition

USING: accessors kernel math system ;

IN: timers.private

: interval-nanos ( timer -- n/f )
    [ next-nanos>> nano-count over - ] [ interval-nanos>> ] bi
    [ dupd [ mod ] [ swap - ] bi + + ] [ 2drop f ] if* ;