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

View File

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