From b0698a36e95a09aa3789c247000cef78a7124bcf Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 17 Nov 2016 15:12:20 -0700 Subject: [PATCH] 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. --- src/runtime/thread.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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 -- 2.25.1