buffers: use unbuffered I/O in convenience functions.

* stdlib/getput.tl (file-get-buf, command-get-buf): If the
number of bytes to read is specified, we use an unbuffered
stream. A buffered stream can read more bytes in order to
fill a buffer, which is undesirable when dealing with a
device or pipe.

1 files changed, 2 insertions, 2 deletions

diff --git a/stdlib/getput.tl b/stdlib/getput.tl
index 4102853e..3b583d73 100644
--- a/stdlib/getput.tl
+++ b/stdlib/getput.tl
@@ -97,7 +97,7 @@
     (put-lines lines s)))
 
 (defun file-get-buf (name : bytes (seek 0))
-  (with-stream (s (open-file name "rb"))
+  (with-stream (s (open-file name (if bytes "rbu" "rb")))
     (sys:get-buf-common s bytes seek)))
 
 (defun file-put-buf (name buf : (seek 0))
@@ -164,7 +164,7 @@
     (put-lines lines s)))
 
 (defun command-get-buf (cmd : bytes (skip 0))
-  (with-stream (s (open-command cmd "rb"))
+  (with-stream (s (open-command cmd (if bytes "rbu" "rb")))
     (sys:get-buf-common s bytes skip)))
 
 (defun command-put-buf (cmd buf)