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

fix win32 error handling

db4
Doug Coleman 2009-04-30 13:11:51 -05:00
parent 64ac2bae6d
commit 31ce2252e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,7 +105,7 @@ M: winnt seek-handle ( n seek-type handle -- )
GetLastError { GetLastError {
{ [ dup expected-io-error? ] [ drop f ] } { [ dup expected-io-error? ] [ drop f ] }
{ [ dup eof? ] [ drop t ] } { [ dup eof? ] [ drop t ] }
[ win32-error-string throw ] [ n>win32-error-string throw ]
} cond } cond
] [ f ] if ; ] [ f ] if ;