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

io.windows.nt.files: minor update

db4
Eduardo Cavazos 2008-06-10 09:43:55 -05:00
parent 1038a37ddb
commit 02b1d4dfa4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/windows/nt/files/files.factor
View File

@ -23,7 +23,7 @@ M: winnt root-directory? ( path -- ? )
{ [ dup empty? ] [ f ] } { [ dup empty? ] [ f ] }
{ [ dup [ path-separator? ] all? ] [ t ] } { [ dup [ path-separator? ] all? ] [ t ] }
{ [ dup right-trim-separators { [ dup right-trim-separators
{ [ dup length 2 = ] [ dup second CHAR: : = ] } && nip ] [ { [ dup length 2 = ] [ dup second CHAR: : = ] } 0&& nip ] [
t t
] } ] }
[ f ] [ f ]
@ -36,7 +36,7 @@ ERROR: not-absolute-path ;
[ dup length 2 >= ] [ dup length 2 >= ]
[ dup second CHAR: : = ] [ dup second CHAR: : = ]
[ dup first Letter? ] [ dup first Letter? ]
} && [ 2 head ] [ not-absolute-path ] if ; } 0&& [ 2 head ] [ not-absolute-path ] if ;
: prepend-prefix ( string -- string' ) : prepend-prefix ( string -- string' )
dup unicode-prefix head? [ dup unicode-prefix head? [