steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge remote-tracking branch '8byte-jose/win32-unc-fix'

db4
John Benediktsson 2011-08-28 11:46:43 -07:00
parent 6fc2c32c4a b3f0ff51aa
commit 3949c53343
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/io/files/windows/windows.factor
View File

@ -325,9 +325,14 @@ M: winnt root-directory? ( path -- ? )
TR: normalize-separators "/" "\\" ; TR: normalize-separators "/" "\\" ;
M: winnt normalize-path ( string -- string' ) M: winnt normalize-path ( string -- string' )
dup [ "//" head? ] [ "\\\\" head? ] bi
or [
normalize-separators
] [
absolute-path absolute-path
normalize-separators normalize-separators
prepend-prefix ; prepend-prefix
] if ;
M: winnt CreateFile-flags ( DWORD -- DWORD ) M: winnt CreateFile-flags ( DWORD -- DWORD )
FILE_FLAG_OVERLAPPED bitor ; FILE_FLAG_OVERLAPPED bitor ;