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

2011-04-15 00:11:15 -05:00 · 2011-04-15 00:11:15 -05:00 · a744e3a370
parent c36d73e242
commit a744e3a370
1 changed files with 3 additions and 1 deletions
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@ -105,7 +105,9 @@ TUPLE: run-loop fds sources timers ;
    >CFAbsoluteTime CFRunLoopTimerSetNextFireDate ;

 : reset-timer ( timer -- )
-    sleep-time 1000 /f system-micros + (reset-timer) ;
+    sleep-time dup
+    [ 1000 /f system-micros + (reset-timer) ]
+    [ 2drop ] if ;

 PRIVATE>