wipe.windows: use normalize-path so resource:foo.txt works

diff --git a/extra/wipe/windows/windows.factor b/extra/wipe/windows/windows.factor
index c13f7a802b25ce8c3f38d1e3af4a24b88d87d6d3..5f9a7dc7c8899195bf1b235fd0ff262891f424e1 100644 (file)
--- a/extra/wipe/windows/windows.factor
+++ b/extra/wipe/windows/windows.factor
@@ -1,11 +1,13 @@
 ! Copyright (C) 2023 Alexander Ilin.
 ! See https://factorcode.org/license.txt for BSD license.
-USING: io.files.windows kernel math system windows.kernel32 wipe ;
+USING: io.backend io.files.windows kernel math system
+windows.kernel32 wipe ;
 IN: wipe.windows
 
 : extract-bit ( n mask -- n' ? )
     [ bitnot bitand ] [ bitand 0 = not ] bi-curry bi ; inline
 
 M: windows remove-read-only
-    dup GetFileAttributesW FILE_ATTRIBUTE_READONLY extract-bit
+    normalize-path dup GetFileAttributesW
+    FILE_ATTRIBUTE_READONLY extract-bit
     [ set-file-attributes ] [ 2drop ] if ;