From e3d6f985fc035045e48f54e4fe654637546c2cf1 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 6 Sep 2002 14:11:36 +0000
Subject: [PATCH] Put back an accidentally elided ELSE branch in
 PLACEHOLDER-SET!

---
 scheme/big/placeholder.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/big/placeholder.scm b/scheme/big/placeholder.scm
index 24ac499..9b20008 100644
--- a/scheme/big/placeholder.scm
+++ b/scheme/big/placeholder.scm
@@ -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)))))
\ No newline at end of file