core-foundation.run-loop: CFTimeInterval is a double.

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index d31abfff609229b3a0c7f6c35a41855c66bdb8a4..3f789c6b79eb754671a10b4faf19550fa7d00235 100644 (file)
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -127,5 +127,5 @@ PRIVATE>
 
 : run-one-iteration ( nanos -- handled? )
     CFRunLoopDefaultMode
-    swap [ 1,000,000,000 / ] [ 300 ] if*
+    swap [ 1,000,000,000 /f ] [ 300 ] if*
     t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;