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

Updates for substitute change

db4
Slava Pestov 2008-02-15 19:32:29 -06:00
parent 87dfd962a2
commit 984c099de6
2 changed files with 3 additions and 3 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

@ -2,7 +2,7 @@ USING: continuations destructors io.buffers io.files io.backend
io.timeouts io.nonblocking io.windows io.windows.nt.backend io.timeouts io.nonblocking io.windows io.windows.nt.backend
kernel libc math threads windows windows.kernel32 alien.c-types kernel libc math threads windows windows.kernel32 alien.c-types
alien.arrays sequences combinators combinators.lib sequences.lib alien.arrays sequences combinators combinators.lib sequences.lib
ascii splitting alien strings ; ascii splitting alien strings assocs ;
IN: io.windows.nt.files IN: io.windows.nt.files
M: windows-nt-io cwd M: windows-nt-io cwd
@ -60,7 +60,7 @@ M: windows-nt-io root-directory? ( path -- ? )
M: windows-nt-io normalize-pathname ( string -- string ) M: windows-nt-io normalize-pathname ( string -- string )
dup string? [ "pathname must be a string" throw ] unless dup string? [ "pathname must be a string" throw ] unless
"/" split "\\" join { { CHAR: / CHAR: \\ } } substitute
cwd swap windows-path+ cwd swap windows-path+
[ "/\\." member? ] right-trim [ "/\\." member? ] right-trim
dup peek CHAR: : = [ "\\" append ] when ; dup peek CHAR: : = [ "\\" append ] when ;

2
extra/ui/commands/commands.factor
View File

@ -51,7 +51,7 @@ GENERIC: command-word ( command -- word )
update-gestures ; update-gestures ;
: (command-name) ( string -- newstring ) : (command-name) ( string -- newstring )
"-" split " " join >title ; { { CHAR: - CHAR: \s } } substitute >title ;
M: word command-name ( word -- str ) M: word command-name ( word -- str )
word-name word-name