win32 io -- keep same behavior as unix on .2 read
parent
4a61a78a79
commit
8964e4ed26
|
@ -111,7 +111,7 @@ M: win32-stream-reader stream-read1 ( stream -- ch/f )
|
|||
>r 1 r> consume-input >string-or-f first ;
|
||||
|
||||
M: win32-stream-reader stream-read ( n stream -- str/f )
|
||||
swap >r win32-buffer-size <sbuf> r> do-read-count ;
|
||||
swap >fixnum >r win32-buffer-size <sbuf> r> do-read-count ;
|
||||
|
||||
M: win32-stream-writer stream-close ( stream -- )
|
||||
dup maybe-flush-output
|
||||
|
|
Loading…
Reference in New Issue