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

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

diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor
index 76cc8f33f0a18460162d2f7750204bd2bc420fe8..083c5187fb6634ef26a69a9a1be897847655a076 100644 (file)
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -31,7 +31,7 @@ ERROR: file-delete-failed path error ;
 : (delete-file) ( path -- )
     dup DeleteFile 0 = [
         GetLastError ERROR_ACCESS_DENIED =
-        [ delete-read-only-file ] [ throw-win32-error ] if
+        [ delete-read-only-file ] [ win32-error ] if
     ] [ drop ] if ;
 
 M: windows delete-file ( path -- )