From 7d8d6cdd512140ecacb2f381e6f2fa09087944f7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 1 Aug 2012 16:59:33 -0700
Subject: [PATCH] core-foundation.run-loop: remove reset on every iteration.

---
 basis/core-foundation/run-loop/run-loop.factor              | 1 -
 basis/io/backend/unix/multiplexers/run-loop/run-loop.factor | 3 ++-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index ba1e90716c..d31abfff60 100644
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -126,7 +126,6 @@ PRIVATE>
     60 timer-callback <CFTimer> add-timer-to-run-loop ;
 
 : run-one-iteration ( nanos -- handled? )
-    reset-run-loop
     CFRunLoopDefaultMode
     swap [ 1,000,000,000 / ] [ 300 ] if*
     t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;
diff --git a/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor b/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor
index bc2b72559d..804243558e 100644
--- a/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor
+++ b/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor
@@ -12,8 +12,9 @@ TUPLE: run-loop-mx kqueue-mx ;
 : file-descriptor-callback ( -- callback )
     void { CFFileDescriptorRef CFOptionFlags void* }
     cdecl [
-        3drop
+        2drop
         0 mx get-global kqueue-mx>> wait-for-events
+        enable-all-callbacks
         yield
     ] alien-callback ;