From 783d7a20da52645acbf2711e3aea0513a7c3819d Mon Sep 17 00:00:00 2001
From: "U-FROGGER\\erg" <erg@frogger.(none)>
Date: Wed, 26 Mar 2008 10:17:20 -0500
Subject: [PATCH] fix windows bootstrap
---
extra/io/windows/nt/files/files.factor | 17 +++++++++++------
1 file changed, 11 insertions(+), 6 deletions(-)
diff --git a/extra/io/windows/nt/files/files.factor b/extra/io/windows/nt/files/files.factor
index 1c8d88c872..c6cbf292b3 100755
--- 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 ;