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

io.files.windows: fix can-seek? and length

db4
Joe Groff 2011-10-18 12:42:53 -07:00
parent 8b724d9657
commit 9b2634fbd7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/files/windows/windows.factor
View File

@ -152,10 +152,10 @@ M: windows seek-handle ( n seek-type handle -- )
} case ; } case ;
M: windows can-seek-handle? ( handle -- ? ) M: windows can-seek-handle? ( handle -- ? )
handle>file-size zero? not ; handle>> handle>file-size zero? not ;
M: windows handle-length ( handle -- n/f ) M: windows handle-length ( handle -- n/f )
handle>file-size [ f ] when-zero ; handle>> handle>file-size [ f ] when-zero ;
: file-error? ( n -- eof? ) : file-error? ( n -- eof? )
zero? [ zero? [