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

Fix WITH-LOCK: The previous version called RELEASE-LOCK in the before 

thunk. Noted by Taylor Campbell.
This commit is contained in:
mainzelm 2004-03-24 08:14:55 +00:00
parent 05e38a42da
commit 52ac78e0aa
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
RELEASE
View File

@ -207,6 +207,7 @@ We manage the project using SourceForge:
expressions and is therefore no longer supported. expressions and is therefore no longer supported.
** Bug fixes ** Bug fixes
Fix WITH-LOCk
Ensure that the exit value is 1 if scsh exits due to an error Ensure that the exit value is 1 if scsh exits due to an error
Load the package scheme-with-scsh before dumping images to get Load the package scheme-with-scsh before dumping images to get
better start-up times better start-up times

3
Thanks
View File

@ -28,4 +28,5 @@ Post-0.5.2-release bug reports:
Peter Wang Peter Wang
Stephen Ma Stephen Ma
stktrc stktrc
Jan Alleman Jan Alleman
Taylor Campbell

2
scsh/scsh.scm
View File

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