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

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index f632a6c4627096c39b9fd1e266d9cdab617c3022..ba1e90716c50312fc3d72607417ff8ad169f42f2 100644 (file)
--- 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 = ;