fix stream-read1 on win32

2006-11-09 06:58:22 +00:00 · 2006-11-09 06:58:22 +00:00 · e35e99e575
parent a2a0c4bc6e
commit e35e99e575
1 changed files with 9 additions and 5 deletions
--- a/library/io/windows/stream.factor
+++ b/library/io/windows/stream.factor
@ -90,11 +90,15 @@ M: string do-write ( string stream -- )
    dup win32-stream-eof? [
        drop t
    ] [
+        dup win32-stream-file-size [
            [
                dup win32-stream-file-size
                swap win32-stream-fileptr
                - zero?
            ] keep set-win32-stream-eof?
+        ] [
+            drop
+        ] if
        f
    ] if ;