From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 17 Nov 2016 22:12:20 +0000 (-0700)
Subject: runtime/thread.scm (handle-current-thread-events): Do not warn...
X-Git-Tag: mit-scheme-pucked-9.2.12~254^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b0698a36e95a09aa3789c247000cef78a7124bcf;p=mit-scheme.git

runtime/thread.scm (handle-current-thread-events): Do not warn...

...on stderr when there is no current thread.  Handle-current-thread-
events is only used by the after-gc-interrupt-handler, which may run
while there is no current thread.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 911927969..135cf5fa2 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -981,11 +981,9 @@ USA.
   (without-interrupts
    (lambda ()
      (let ((thread first-running-thread))
-       (if thread
-	   (if (not (thread/block-events? thread))
-	       (handle-thread-events thread))
-	   (outf-error
-	    "\nhandle-current-thread-events: no current thread\n"))))))
+       (if (and thread
+		(not (thread/block-events? thread)))
+	   (handle-thread-events thread))))))
 
 ;;;; Subprocess Events