From af60dfa0508325d8d7d05f635f317b2dce3b9fe5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 2 Dec 2008 03:09:39 -0600 Subject: [PATCH] Update io.windows.launcher to use dip instead of >r/r> --- basis/io/windows/launcher/launcher.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/basis/io/windows/launcher/launcher.factor b/basis/io/windows/launcher/launcher.factor index fc8e4a7bc0..212b405a54 100644 --- a/basis/io/windows/launcher/launcher.factor +++ b/basis/io/windows/launcher/launcher.factor @@ -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 ;