From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 9 Jun 2015 04:22:07 +0000 (+0000)
Subject: No recursion needed: use WITH-THREAD-MUTEX-LOCK.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~91
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d42d886c13ab28e911e6c8111b89cecf8ba78f22;p=mit-scheme.git

No recursion needed: use WITH-THREAD-MUTEX-LOCK.
---

diff --git a/src/runtime/thread-barrier.scm b/src/runtime/thread-barrier.scm
index 01e64f874..d1de948d0 100644
--- a/src/runtime/thread-barrier.scm
+++ b/src/runtime/thread-barrier.scm
@@ -52,7 +52,7 @@ USA.
   (guarantee-thread-barrier barrier 'THREAD-BARRIER-WAIT)
   (let ((lock (thread-barrier.lock barrier))
 	(condvar (thread-barrier.condvar barrier)))
-    (with-thread-mutex-locked lock
+    (with-thread-mutex-lock lock
       (lambda ()
 	(let ((count (thread-barrier.count barrier))
 	      (current (thread-barrier.current barrier))