From ee1ab5b6edffd6c13ef13c3d738571c6b95e3a25 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 9 Jun 2015 04:22:11 +0000 Subject: [PATCH] No recursion needed: use WITH-THREAD-MUTEX-LOCK. --- src/runtime/thread-queue.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/thread-queue.scm b/src/runtime/thread-queue.scm index a60b8a381..53f8c9e34 100644 --- a/src/runtime/thread-queue.scm +++ b/src/runtime/thread-queue.scm @@ -74,12 +74,12 @@ USA. (thread-mutex-owner (%thread-queue/mutex queue))) (define (with-queue-locked queue thunk) - (with-thread-mutex-locked (%thread-queue/mutex queue) + (with-thread-mutex-lock (%thread-queue/mutex queue) (lambda () (with-thread-events-blocked thunk)))) (define (with-queue-unlocked queue thunk) - (with-thread-mutex-unlocked (%thread-queue/mutex queue) + (without-thread-mutex-lock (%thread-queue/mutex queue) ;; suspend-current-thread will unblock (and re-block) thread-events thunk)) -- 2.25.1