From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 19 Oct 2012 18:56:20 +0000 (-0700)
Subject: Move maybe-signal-io-thread-events apply out of yield-thread.
X-Git-Tag: mit-scheme-pucked-9.2.12~551
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=98897813543363dc2d9473bb0d6dac54d884e0a5;p=mit-scheme.git

Move maybe-signal-io-thread-events apply out of yield-thread.

Moved the call to yield-current-thread.  It is otherwise redundant
with all the i/o and timer event polling in thread-timer-interrupt-
handler, the other caller of yield-thread.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 2a99f9e04..cf637aec1 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -334,6 +334,7 @@ USA.
 (define (yield-current-thread)
   (without-interrupts
    (lambda ()
+     (maybe-signal-io-thread-events)
      (call-with-current-thread #t
        (lambda (thread)
 	 ;; Allow preemption now, since the current thread has
@@ -342,7 +343,6 @@ USA.
 	 (yield-thread thread))))))
 
 (define (yield-thread thread #!optional fp-env)
-  (maybe-signal-io-thread-events)
   (let ((next (thread/next thread)))
     (%trace ";yield-thread: "thread" yields to "next"\n")
     (if (not next)