(reset-thread-timer) ( timer -- )

Vocabulary

core-foundation.run-loop

Inputs

timer

an object

Outputs

None

Definition

USING: calendar.unix core-foundation.time core-foundation.timers
kernel math threads ;

IN: core-foundation.run-loop

: (reset-thread-timer) ( timer -- )
    sleep-time [ 1000 /f ] [ 1000000 ] if* system-micros +
    >CFAbsoluteTime CFRunLoopTimerSetNextFireDate ;