Replace "n>win32-error-string throw" with windows-error instance throwing

[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..9b5006701de2d9d9d4aef67e859fbb9dc1a12f61 100644 (file)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -76,7 +76,7 @@ SYMBOL: master-completion-port
             { [ dup integer? ] [ ] }
             { [ dup array? ] [
                 first dup eof?
-                [ drop 0 ] [ n>win32-error-string throw ] if
+                [ drop 0 ] [ throw-windows-error ] if
             ] }
         } cond
     ] with-timeout ;
@@ -147,7 +147,7 @@ M: windows handle-length ( handle -- n/f )
         GetLastError {
             { [ dup expected-io-error? ] [ drop f ] }
             { [ dup eof? ] [ drop t ] }
-            [ n>win32-error-string throw ]
+            [ throw-windows-error ]
         } cond
     ] [ f ] if ;