Set bufpol/none for current-input-port.

2003-01-07 16:01:14 +00:00 · 2003-01-07 16:01:14 +00:00 · 7fb1d585b2
parent f35bd77442
commit 7fb1d585b2
1 changed files with 2 additions and 1 deletions
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@ -488,9 +488,10 @@
 (define (init-fdports!)
  (set-fluid! $current-input-port  
 	      (channel-port->input-fdport (current-input-port)))
+  (set-port-buffering (current-input-port) bufpol/none)
+
  (set-fluid! $current-output-port 
 	      (channel-port->output-fdport (current-output-port)))
-  
  (set-fluid! $current-error-port  
 	      (channel-port->unbuffered-output-fdport (current-error-port)))
  (set-fluid! $current-noise-port