Look for IO in yield-current-thread.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 99da9083be8bc8c6bc1b6d56a51405e56d053293..aa5119723d8a3e746a80193fcbbabb4232d0792d 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -422,6 +422,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)