Fixed bug: before-thunk needs to obtain the lock.

-- Martin
2003-03-05 14:32:06 +00:00 · 2003-03-05 14:32:06 +00:00 · 6863cce44f
parent 234d1cc70a
commit 6863cce44f
1 changed files with 1 additions and 1 deletions
--- a/s48/concurrency/with-lock.scm
+++ b/s48/concurrency/with-lock.scm
@ -7,7 +7,7 @@
 (define (with-lock lock thunk)
  (dynamic-wind 
   (lambda ()
-     (release-lock lock))
+     (obtain-lock lock))
   thunk
   (lambda ()
     (release-lock lock))))