Look for IO in yield-current-thread.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index fc75ab94ba7b99c31587e0ae8c0e5a645364fe16..feafed9322a2062d37a898a1e5fbb2adfb2edb0e 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -325,6 +325,7 @@ USA.
         ;; Allow preemption now, since the current thread has
         ;; volunteered to yield control.
         (set-thread/execution-state! thread 'RUNNING)
+        (maybe-signal-io-thread-events)
         (yield-thread thread))))))
 
 (define (yield-thread thread #!optional fp-env)