Fixed severe bug in WITH-LOCK. Noted by Taylor Campbell

2004-03-16 07:30:14 +00:00 · 2004-03-16 07:30:14 +00:00 · a65a5c5f86
parent f328c0537f
commit a65a5c5f86
1 changed files with 2 additions and 2 deletions
--- a/scheme/lib/sunet-utilities.scm
+++ b/scheme/lib/sunet-utilities.scm
@ -63,7 +63,7 @@
 (define (with-lock lock thunk)
  (dynamic-wind 
   (lambda ()
-     (release-lock lock))
+     (obtain-lock lock))
   thunk
   (lambda ()
     (release-lock lock))))
@ -72,4 +72,4 @@
 ;; Get Header from (RFC822 like) header alist
 (define (get-header headers tag)
  (cond ((assq tag headers) => cdr)
-	(else #f)))
+	(else #f)))