From 883117ae064cf9dc4e659dd2699ecbee3345272b Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 12 Nov 2002 14:26:02 +0000 Subject: [PATCH] Change SELECT! in the same way as SELECT: only ask the buffers of ports that were passed in, not those of raw file descriptors. --- scsh/newports.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/newports.scm b/scsh/newports.scm index 6c7b28e..c78be5f 100644 --- a/scsh/newports.scm +++ b/scsh/newports.scm @@ -865,8 +865,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 ((structure-ref interrupts enable-interrupts!))