From 36f496316876bd105f58e2e29308c199300353e4 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 9 Jun 2015 04:21:41 +0000 Subject: [PATCH] No recursion needed: use WITH-THREAD-MUTEX-LOCK. --- src/gdbm/gdbm.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/gdbm/gdbm.scm b/src/gdbm/gdbm.scm index d03b7f48c..b94adc545 100644 --- a/src/gdbm/gdbm.scm +++ b/src/gdbm/gdbm.scm @@ -263,10 +263,10 @@ USA. (error:wrong-type-argument gdbf "gdbm handle" procedure))) (define-integrable (with-gdbf-locked gdbf thunk) - (with-thread-mutex-locked (gdbf-mutex gdbf) thunk)) + (with-thread-mutex-lock (gdbf-mutex gdbf) thunk)) (define (with-gdbf-locked-open gdbf operator receiver) - (with-thread-mutex-locked + (with-thread-mutex-lock (gdbf-mutex gdbf) (lambda () (let ((args (gdbf-args gdbf))) @@ -322,14 +322,14 @@ USA. (define open-gdbfs-mutex) (define (add-open-gdbf-cleanup gdbf) - (with-thread-mutex-locked + (with-thread-mutex-lock open-gdbfs-mutex (lambda () (set! open-gdbfs (cons (weak-cons gdbf (gdbf-args gdbf)) open-gdbfs))))) (define (remove-open-gdbf-cleanup gdbf) - (with-thread-mutex-locked + (with-thread-mutex-lock open-gdbfs-mutex (lambda () (let ((entry (weak-assq gdbf open-gdbfs))) -- 2.25.1