From 8964e4ed26e0aaf8b49be6c6e65bbde417d69ae7 Mon Sep 17 00:00:00 2001 From: erg Date: Sat, 28 Oct 2006 20:40:07 +0000 Subject: [PATCH] win32 io -- keep same behavior as unix on .2 read --- library/io/windows/stream.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/io/windows/stream.factor b/library/io/windows/stream.factor index 945f794d7f..52bc84b455 100644 --- a/library/io/windows/stream.factor +++ b/library/io/windows/stream.factor @@ -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 r> do-read-count ; + swap >fixnum >r win32-buffer-size r> do-read-count ; M: win32-stream-writer stream-close ( stream -- ) dup maybe-flush-output