From a206e4f70ab90b8bbec91995bff0fbe0892d0fd4 Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 12 Nov 2002 13:13:27 +0000 Subject: [PATCH] Change the semantics of select so that it doesn't check the underlying port buffer for fdes arguments. --- scsh/newports.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/newports.scm b/scsh/newports.scm index 85c2f8d..6c7b28e 100644 --- a/scsh/newports.scm +++ b/scsh/newports.scm @@ -811,8 +811,8 @@ (for-each input-port/fdes-check-unlocked read-list) (for-each output-port/fdes-check-unlocked write-list) - (let ((any-read (any-input-ready read-list)) - (any-write (any-output-ready write-list))) + (let ((any-read (any-input-ready (filter input-port? read-list))) + (any-write (any-output-ready (filter output-port? write-list)))) (if (or (pair? any-read) (pair? any-write)) (begin