From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 9 Jun 2015 04:21:41 +0000 (+0000)
Subject: No recursion needed: use WITH-THREAD-MUTEX-LOCK.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~94
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36f496316876bd105f58e2e29308c199300353e4;p=mit-scheme.git

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

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)))