io.directories.windows: use MOVEFILE_REPLACE_EXISTING

[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 e51bda8433ebbac517c5422b7cd6164da399d3c1..0297efb4c946a8e286a75aed6a5020bf94584b02 100644 (file)
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -21,10 +21,13 @@ M: windows truncate-file
     ] with-disposal ;
 
 M: windows move-file
-    [ normalize-path ] bi@ MoveFile win32-error=0/f ;
+    [ normalize-path ] bi@
+    flags{ MOVEFILE_REPLACE_EXISTING MOVEFILE_COPY_ALLOWED }
+    MoveFileEx win32-error=0/f ;
 
 M: windows move-file-atomically
-    [ normalize-path ] bi@ 0 MoveFileEx win32-error=0/f ;
+    [ normalize-path ] bi@ MOVEFILE_REPLACE_EXISTING
+    MoveFileEx win32-error=0/f ;
 
 ERROR: file-delete-failed path error ;