core-foundation.run-loop bug fix for Doug's bug fix
parent
b9e127eb6c
commit
cbbdd712fc
|
@ -105,9 +105,9 @@ TUPLE: run-loop fds sources timers ;
|
|||
>CFAbsoluteTime CFRunLoopTimerSetNextFireDate ;
|
||||
|
||||
: reset-timer ( timer -- )
|
||||
sleep-time dup
|
||||
[ 1000 /f system-micros + (reset-timer) ]
|
||||
[ 2drop ] if ;
|
||||
sleep-time
|
||||
[ 1000 /f ] [ 1,000,000 ] if* system-micros +
|
||||
(reset-timer) ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
|
|
Loading…
Reference in New Issue