From 00fe7dc886bb264c70f844b8ceca244e849c742b Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 10 Jul 2015 17:26:23 -0700
Subject: [PATCH] Look for IO in yield-current-thread.

---
 src/runtime/thread.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 99da9083b..aa5119723 100644
--- 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)
-- 
2.25.1