From 52ac78e0aa83f1f8c32a1250267ef1a798142d0f Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 24 Mar 2004 08:14:55 +0000
Subject: [PATCH] Fix WITH-LOCK: The previous version called RELEASE-LOCK in
 the before thunk. Noted by Taylor Campbell.

---
 RELEASE       | 1 +
 Thanks        | 3 ++-
 scsh/scsh.scm | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/RELEASE b/RELEASE
index bd3ba41..5e5a4f3 100644
--- a/RELEASE
+++ b/RELEASE
@@ -207,6 +207,7 @@ We manage the project using SourceForge:
    expressions and is therefore no longer supported.
 
 ** Bug fixes
+   Fix WITH-LOCk
    Ensure that the exit value is 1 if scsh exits due to an error
    Load the package scheme-with-scsh before dumping images to get
    better start-up times
diff --git a/Thanks b/Thanks
index ed2c97f..80713a1 100644
--- a/Thanks
+++ b/Thanks
@@ -28,4 +28,5 @@ Post-0.5.2-release bug reports:
     Peter Wang
     Stephen Ma
     stktrc
-    Jan Alleman
\ No newline at end of file
+    Jan Alleman
+    Taylor Campbell
\ No newline at end of file
diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 2d88cfa..22453a6 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -132,7 +132,7 @@
 (define (with-lock lock thunk)
   (dynamic-wind 
    (lambda ()
-     (release-lock lock))
+     (obtain-lock lock))
    thunk
    (lambda ()
      (release-lock lock))))