From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 00:26:23 +0000 (-0700)
Subject: Look for IO in yield-current-thread.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~65
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b0c49d7e82eb8822ce207c6d8b7d9f42409cda8d;p=mit-scheme.git

Look for IO in yield-current-thread.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index fc75ab94b..feafed932 100644
--- 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)