io.files.windows: add FILE_FLAG_BACKUP_SEMANTICS to CreateFile-flags

This provides additional access rights if the process has SE_BACKUP_NAME
or SE_RESTORE_NAME privileges. Does nothing otherwise.

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 577f1292d5f74977b0f8825565855fdf94401c39..1ca3048f9a45205cdc4d69a71e73448d64816673 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -360,7 +360,7 @@ M: windows normalize-path ( string -- string' )
     ] if ;
 
 M: windows CreateFile-flags ( DWORD -- DWORD )
-    FILE_FLAG_OVERLAPPED bitor ;
+    flags{ FILE_FLAG_BACKUP_SEMANTICS FILE_FLAG_OVERLAPPED } bitor ;
 
 <PRIVATE