fix windows bootstrap

diff --git a/extra/io/windows/nt/files/files.factor b/extra/io/windows/nt/files/files.factor
index 1c8d88c872705bedd7d13d8b260cd160141a54df..c6cbf292b325c8bd76ea2e51ea7b40eaa3c2fc91 100755 (executable)
--- a/extra/io/windows/nt/files/files.factor
+++ b/extra/io/windows/nt/files/files.factor
@@ -65,12 +65,17 @@ ERROR: empty-pathname ;
 
 USE: tools.walker
 M: windows-nt-io normalize-pathname ( string -- string )
-    dup string? [ nonstring-pathname ] unless
-    dup empty? [ empty-pathname ] when
-    { { CHAR: / CHAR: \\ } } substitute
-    current-directory get swap windows-append-path
-    [ "/\\." member? ] right-trim
-    dup peek CHAR: : = [ "\\" append ] when ;
+    "resource:" ?head [
+        left-trim-separators resource-path
+        normalize-pathname
+    ] [
+        dup string? [ nonstring-pathname ] unless
+        dup empty? [ empty-pathname ] when
+        { { CHAR: / CHAR: \\ } } substitute
+        current-directory get swap windows-append-path
+        [ "/\\." member? ] right-trim
+        dup peek CHAR: : = [ "\\" append ] when
+    ] if ;
 
 M: windows-nt-io CreateFile-flags ( DWORD -- DWORD )
     FILE_FLAG_OVERLAPPED bitor ;