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

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 684d8f13d7613d27cec83b39fa773b83c72ccd91..0531551b60c0f49499b769a44471abd5da1b98ed 100644 (file)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -399,7 +399,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