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