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

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index 22214cc9415a4fe900aa1695a9dd33a02e2f73b0..b4465c2975f07c18f747df3536069caf74777bb4 100644 (file)
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -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>