From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 00:24:20 +0000 (-0700)
Subject: Add missing (unlock) to restart-thread.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a013cc611807051193af1e104f30c2baa50b8f50;p=mit-scheme.git

Add missing (unlock) to restart-thread.
---

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))