core-foundation.run-loop: use fewer durations.

2012-08-01 11:53:33 -07:00 · 2012-08-01 11:53:33 -07:00 · caf4e677c7
parent ebac6a5dbf
commit caf4e677c7
1 changed files with 1 additions and 1 deletions
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@ -128,5 +128,5 @@ PRIVATE>
 : run-one-iteration ( nanos -- handled? )
    reset-run-loop
    CFRunLoopDefaultMode
-    swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval
+    swap [ 1,000,000,000 / ] [ 300 ] if*
    t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;