steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bugfix: Only reset-timer on mac if sleep-time returns an integer. If it returns f, don't divide by 1000 and error.

db4
Doug Coleman 2011-04-15 00:11:15 -05:00
parent c36d73e242
commit a744e3a370
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/core-foundation/run-loop/run-loop.factor
View File

@ -105,7 +105,9 @@ TUPLE: run-loop fds sources timers ;
>CFAbsoluteTime CFRunLoopTimerSetNextFireDate ; >CFAbsoluteTime CFRunLoopTimerSetNextFireDate ;
: reset-timer ( timer -- ) : reset-timer ( timer -- )
sleep-time 1000 /f system-micros + (reset-timer) ; sleep-time dup
[ 1000 /f system-micros + (reset-timer) ]
[ 2drop ] if ;
PRIVATE> PRIVATE>