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

2013-03-06 20:31:42 -08:00 · 2013-03-06 20:31:42 -08:00 · c81bf00e46
parent be04b19745
commit c81bf00e46
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
@ -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 = ;