scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Change the semantics of select so that it doesn't check the underlying 

port buffer for fdes arguments.
This commit is contained in:
sperber 2002-11-12 13:13:27 +00:00
parent 6fc80dfb4b
commit a206e4f70a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/newports.scm
View File

@ -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