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

Flush only the open ports.

This commit is contained in:
mainzelm 2001-12-07 09:59:13 +00:00
parent d9557de6ef
commit 2fa5e3f693
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/newports.scm
View File

@ -542,7 +542,7 @@
(define (flush-all-ports)
(weak-table-walk
(lambda (i fdport)
(if (and fdport (output-port? fdport)) (flush-fdport fdport)))
(if (and fdport (open-output-port? fdport)) (flush-fdport fdport)))
fdports))
;;; Extend R4RS i/o ops to handle file descriptors.