io.files.windows: replace "-1 <alien>" with INVALID_HANDLE_VALUE

2016-05-24 20:40:11 +03:00 · 2016-05-24 20:40:11 +03:00 · 77dfb95763
parent d8e246389d
commit 77dfb95763
1 changed files with 1 additions and 1 deletions
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@ -404,7 +404,7 @@ M: windows home
    WIN32_FIND_STREAM_DATA <struct>
    0
    [ FindFirstStream ] keepd
-    over -1 <alien> = [
+    over INVALID_HANDLE_VALUE = [
        2drop throw-win32-error
    ] [
        1vector swap file-streams-rest