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

2002-09-06 14:11:36 +00:00 · 2002-09-06 14:11:36 +00:00 · e3d6f985fc
parent feb4ffcb08
commit e3d6f985fc
1 changed files with 3 additions and 2 deletions
--- a/scheme/big/placeholder.scm
+++ b/scheme/big/placeholder.scm
@ -39,7 +39,8 @@
 				 => (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)))