From b0c49d7e82eb8822ce207c6d8b7d9f42409cda8d Mon Sep 17 00:00:00 2001 From: Matt Birkholz 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 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) -- 2.25.1