steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix stream-read1 on win32

erg 2006-11-09 06:58:22 +00:00
parent a2a0c4bc6e
commit e35e99e575
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
library/io/windows/stream.factor
View File

@ -90,11 +90,15 @@ M: string do-write ( string stream -- )
dup win32-stream-eof? [ dup win32-stream-eof? [
drop t drop t
] [ ] [
[ dup win32-stream-file-size [
dup win32-stream-file-size [
swap win32-stream-fileptr dup win32-stream-file-size
- zero? swap win32-stream-fileptr
] keep set-win32-stream-eof? - zero?
] keep set-win32-stream-eof?
] [
drop
] if
f f
] if ; ] if ;