Revert "Delete throw-win32-error, replace with win32-error calls"

[factor.git] / basis / io / files / windows / windows.factor

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 518fa8daab5c40bc121f4d312281b6f013eae0df..0531551b60c0f49499b769a44471abd5da1b98ed 100644 (file)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -117,7 +117,7 @@ M: windows init-io ( -- )
 : handle>file-size ( handle -- n/f )
     (handle>file-size) [
         GetLastError ERROR_INVALID_FUNCTION =
-        [ f ] [ win32-error ] if
+        [ f ] [ throw-win32-error ] if
     ] unless* ;
 
 ERROR: seek-before-start n ;
@@ -400,7 +400,7 @@ M: windows home
     0
     [ FindFirstStream ] keepd
     over INVALID_HANDLE_VALUE = [
-        2drop win32-error
+        2drop throw-win32-error
     ] [
         1vector swap file-streams-rest
     ] if ;