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 911927969e2560a68e9eabb6167c26807bbdb484..135cf5fa24dad441e84721f57a20db654a2fb7db 100644 (file)
--- 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))))))
 \f
 ;;;; Subprocess Events