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

diff --git a/src/runtime/thread-barrier.scm b/src/runtime/thread-barrier.scm
index 01e64f874cf5cc02c7d654b40a396393d8dd9fd9..d1de948d002f22828440554501147ceda6b08ffc 100644 (file)
--- 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))