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

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