fix failing unit test on windows

2006-12-15 21:43:42 +00:00 · 2006-12-15 21:43:42 +00:00 · ed899e53cb
parent 4137f6cddb
commit ed899e53cb
1 changed files with 1 additions and 0 deletions
--- a/core/io/windows/stream.factor
+++ b/core/io/windows/stream.factor
@ -166,6 +166,7 @@ C: win32-stream ( handle -- stream )
    0 swap [ set-win32-stream-cutoff ] keep
    dup win32-stream-handle f GetFileSize dup -1 = [ drop f ] when
    over set-win32-stream-file-size
+    dup win32-stream-file-size zero? [ t over set-win32-stream-eof? ] when
    0 swap [ set-win32-stream-fileptr ] keep ;

 C: win32-stream-reader ( stream -- stream )