From d42d886c13ab28e911e6c8111b89cecf8ba78f22 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 9 Jun 2015 04:22:07 +0000 Subject: [PATCH] No recursion needed: use WITH-THREAD-MUTEX-LOCK. --- src/runtime/thread-barrier.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.25.1