~ chicken-core (chicken-5) e7b1c15a172d66c21dac6444d3fa3206f6a923bb

commit e7b1c15a172d66c21dac6444d3fa3206f6a923bb
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Sep 6 05:12:40 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Sep 6 05:12:40 2010 -0400

    removed check for i/o mode

diff --git a/scheduler.scm b/scheduler.scm
index c35a73ff..99991198 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -393,7 +393,7 @@ EOF
 
 (define (##sys#thread-block-for-i/o! t fd i/o)
   (dbg t " blocks for I/O " fd " in mode " i/o)
-  (unless (memq i/o '(#:all #:input #:output))
+  #;(unless (memq i/o '(#:all #:input #:output))
     (panic "##sys#thread-block-for-i/o!: invalid i/o mode"))
   (let loop ([lst ##sys#fd-list])
     (if (null? lst)