core-foundation.run-loop bug fix for Doug's bug fix

db4
Slava Pestov 2011-04-16 19:11:43 -07:00
parent b9e127eb6c
commit cbbdd712fc
1 changed files with 3 additions and 3 deletions
basis/core-foundation/run-loop

View File

@ -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>