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