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

better error handling for backends

db4
Doug Coleman 2009-02-07 11:24:12 -06:00
parent 2820b9fc99
commit 959ef7a737
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/io/backend/unix/unix.factor
View File

@ -51,6 +51,7 @@ M: unix (stream-seek) ( n seek-type stream -- )
{ io:seek-absolute [ SEEK_SET ] } { io:seek-absolute [ SEEK_SET ] }
{ io:seek-relative [ SEEK_CUR ] } { io:seek-relative [ SEEK_CUR ] }
{ io:seek-end [ SEEK_END ] } { io:seek-end [ SEEK_END ] }
[ io:bad-seek-type ]
} case } case
[ handle>> fd>> swap ] dip lseek io-error ; [ handle>> fd>> swap ] dip lseek io-error ;

1
basis/io/backend/windows/nt/nt.factor
View File

@ -92,6 +92,7 @@ M: winnt (stream-seek) ( n seek-type stream -- )
{ seek-absolute [ handle>> (>>ptr) ] } { seek-absolute [ handle>> (>>ptr) ] }
{ seek-relative [ handle>> [ + ] change-ptr drop ] } { seek-relative [ handle>> [ + ] change-ptr drop ] }
{ seek-end [ handle>> [ handle>> handle>file-size + ] keep (>>ptr) ] } { seek-end [ handle>> [ handle>> handle>file-size + ] keep (>>ptr) ] }
[ bad-seek-type ]
} case ; } case ;
: file-error? ( n -- eof? ) : file-error? ( n -- eof? )