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

This commit is contained in:
mainzelm 2004-03-16 07:30:14 +00:00
parent f328c0537f
commit a65a5c5f86
1 changed files with 2 additions and 2 deletions

View File

@ -63,7 +63,7 @@
(define (with-lock lock thunk)
(dynamic-wind
(lambda ()
(release-lock lock))
(obtain-lock lock))
thunk
(lambda ()
(release-lock lock))))