From a013cc611807051193af1e104f30c2baa50b8f50 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 10 Jul 2015 17:24:20 -0700 Subject: [PATCH] Add missing (unlock) to restart-thread. --- src/runtime/thread.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm index e2f3f442f..99da9083b 100644 --- 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))))) (define (disallow-preempt-current-thread) (set-thread/execution-state! (current-thread) 'RUNNING-WITHOUT-PREEMPTION)) -- 2.25.1