fix win32 error handling

2009-04-30 13:11:51 -05:00 · 2009-04-30 13:11:51 -05:00 · 31ce2252e7
parent 64ac2bae6d
commit 31ce2252e7
1 changed files with 1 additions and 1 deletions
--- a/basis/io/backend/windows/nt/nt.factor
+++ b/basis/io/backend/windows/nt/nt.factor
@ -105,7 +105,7 @@ M: winnt seek-handle ( n seek-type handle -- )
        GetLastError {
            { [ dup expected-io-error? ] [ drop f ] }
            { [ dup eof? ] [ drop t ] }
-            [ win32-error-string throw ]
+            [ n>win32-error-string throw ]
        } cond
    ] [ f ] if ;