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

diff --git a/src/gdbm/gdbm.scm b/src/gdbm/gdbm.scm
index d03b7f48cd053b0207d56cf4309987fcf1e8c339..b94adc545a11df2862194d7db01b19c862cc874f 100644 (file)
--- 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)))