~ chicken-core (chicken-5) b9aa769c0e2b9ce3a086f44e4c5caff589d6ee63

commit b9aa769c0e2b9ce3a086f44e4c5caff589d6ee63
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 20 08:37:01 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 20 08:37:01 2011 +0200

    trivial bugfix that referenced a nonexistent local variable - fixed #668

diff --git a/scheduler.scm b/scheduler.scm
index 08c8a5cf..02a8fad9 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -436,7 +436,7 @@ EOF
 			    [inf (##core#inline "C_fd_test_input" fd)]
 			    [outf (##core#inline "C_fd_test_output" fd)])
 		       (dbg "fd " fd " state: input=" inf ", output=" outf)
-		       (if (or inf outf errf)
+		       (if (or inf outf)
 			   (let loop2 ((threads (cdr a)) (keep '()))
 			     (if (null? threads)
 				 (if (null? keep)