core-foundation.run-loop: this is still needed, for now.

2012-08-01 11:18:47 -07:00 · 2012-08-01 11:18:47 -07:00 · ebac6a5dbf
parent d78f90d7c7
commit ebac6a5dbf
1 changed files with 1 additions and 0 deletions
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@ -126,6 +126,7 @@ PRIVATE>
    60 timer-callback <CFTimer> add-timer-to-run-loop ;

 : run-one-iteration ( nanos -- handled? )
+    reset-run-loop
    CFRunLoopDefaultMode
    swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval
    t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;