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

Set bufpol/none for current-input-port.

This commit is contained in:
mainzelm 2003-01-07 16:01:14 +00:00
parent f35bd77442
commit 7fb1d585b2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/newports.scm
View File

@ -488,9 +488,10 @@
(define (init-fdports!) (define (init-fdports!)
(set-fluid! $current-input-port (set-fluid! $current-input-port
(channel-port->input-fdport (current-input-port))) (channel-port->input-fdport (current-input-port)))
(set-port-buffering (current-input-port) bufpol/none)
(set-fluid! $current-output-port (set-fluid! $current-output-port
(channel-port->output-fdport (current-output-port))) (channel-port->output-fdport (current-output-port)))
(set-fluid! $current-error-port (set-fluid! $current-error-port
(channel-port->unbuffered-output-fdport (current-error-port))) (channel-port->unbuffered-output-fdport (current-error-port)))
(set-fluid! $current-noise-port (set-fluid! $current-noise-port