core-foundation.run-loop: remove unnecessary yields. This fixes a thr…

…ead starvation issue with game.input
littledan · Mar 15, 2010 · d07a2bd · d07a2bd
1 parent 8df0965
commit d07a2bd
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
@@ -106,11 +106,11 @@ TUPLE: run-loop fds sources timers ;
     nano-count - 1,000 /f system-micros + ;
 
 : reset-timer ( timer -- )
-    yield {
-        { [ run-queue deque-empty? not ] [ yield system-micros (reset-timer) ] }
-        { [ sleep-queue heap-empty? ] [ system-micros 1,000,000 + (reset-timer) ] }
-        [ sleep-queue heap-peek nip nano-count>micros (reset-timer) ]
-    } cond ;
+    {
+        { [ run-queue deque-empty? not ] [ system-micros ] }
+        { [ sleep-queue heap-empty? not ] [ sleep-queue heap-peek nip nano-count>micros ] }
+        [ system-micros 1,000,000 + ]
+    } cond (reset-timer) ;
 
 PRIVATE>