scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/lib/sunet-utilities.scm
View File

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