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

Update io.windows.launcher to use dip instead of >r/r>

db4
Slava Pestov 2008-12-02 03:09:39 -06:00
parent 60688848f2
commit af60dfa050
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/io/windows/launcher/launcher.factor
View File

@ -46,7 +46,7 @@ TUPLE: CreateProcess-args
CreateProcess win32-error=0/f ; CreateProcess win32-error=0/f ;
: count-trailing-backslashes ( str n -- str n ) : count-trailing-backslashes ( str n -- str n )
>r "\\" ?tail r> swap [ [ "\\" ?tail ] dip swap [
1+ count-trailing-backslashes 1+ count-trailing-backslashes
] when ; ] when ;
@ -85,8 +85,7 @@ TUPLE: CreateProcess-args
: fill-lpApplicationName ( process args -- process args ) : fill-lpApplicationName ( process args -- process args )
over app-name/cmd-line over app-name/cmd-line
>r >>lpApplicationName [ >>lpApplicationName ] [ >>lpCommandLine ] bi* ;
r> >>lpCommandLine ;
: fill-lpCommandLine ( process args -- process args ) : fill-lpCommandLine ( process args -- process args )
over cmd-line >>lpCommandLine ; over cmd-line >>lpCommandLine ;