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

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

--
Martin
This commit is contained in:
Eric Knauel 2003-03-05 14:32:06 +00:00
parent 234d1cc70a
commit 6863cce44f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s48/concurrency/with-lock.scm
View File

@ -7,7 +7,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))))