~ chicken-core (chicken-5) 4d4d9d61f4af0663764b81e1e1e38e87b8f5aec5

commit 4d4d9d61f4af0663764b81e1e1e38e87b8f5aec5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 4 11:42:02 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 4 11:42:02 2010 +0200

    allow old i/o flagging

diff --git a/scheduler.scm b/scheduler.scm
index 930f04c1..4c1b59c2 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -375,8 +375,8 @@ EOF
 (define (fdset-set fd i/o)
   (dbg "setting fdset for " fd " to " i/o)
   (case i/o
-    ((#:input) (fdset-input-set fd))
-    ((#:output) (fdset-output-set fd))
+    ((#t #:input) (fdset-input-set fd))
+    ((#f #:output) (fdset-output-set fd))
     ((#:all)
      (fdset-input-set fd)
      (fdset-output-set fd) )
@@ -384,8 +384,8 @@ EOF
 
 (define (fdset-test inf outf i/o)
   (case i/o
-    ((#:input) inf)
-    ((#:output) outf)
+    ((#t #:input) inf)
+    ((#f #:output) outf)
     ((#:all) (or inf outf))
     (else (panic "fdset-test: invalid i/o direction"))))