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

View File

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