Add missing (unlock) to restart-thread.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index e2f3f442f49d1a41cc61af593947235190f22c78..99da9083be8bc8c6bc1b6d56a51405e56d053293 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -385,7 +385,8 @@ USA.
              (ring/discard-all (thread/pending-events thread)))
          (if event
              (%signal-thread-event thread event))
-         (thread-running thread)))))
+         (thread-running thread)
+         (unlock)))))
 \f
 (define (disallow-preempt-current-thread)
   (set-thread/execution-state! (current-thread) 'RUNNING-WITHOUT-PREEMPTION))