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

Put back an accidentally elided ELSE branch in PLACEHOLDER-SET!

This commit is contained in:
sperber 2002-09-06 14:11:36 +00:00
parent feb4ffcb08
commit e3d6f985fc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/big/placeholder.scm
View File

@ -39,10 +39,11 @@
=> (lambda (thread) => (lambda (thread)
(loop (cons thread waiters)))) (loop (cons thread waiters))))
(else (else
waiters)))))))))) waiters))))
(else #f)))))))
(if waiters (if waiters
(for-each make-ready waiters) (for-each make-ready waiters)
(if (not (eq? value (placeholder-value placeholder))) (if (not (eq? value (placeholder-value placeholder)))
(error "placeholder is already assigned" (error "placeholder is already assigned"
placeholder placeholder
value))))) value)))))