io.launcher: Add process-lines word.

diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor
index a56a97294aadf96413eced7efa56d778d8fa9663..f82929fd153792b691496f7a48731e15938d5f6c 100644 (file)
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@@ -236,6 +236,9 @@ PRIVATE>
 : with-process-reader ( desc encoding quot -- )
     with-process-reader* check-success ; inline
 
+: process-lines ( desc -- lines )
+    utf8 <process-reader> stream-lines ;
+
 <PRIVATE
 
 : (process-writer) ( desc encoding -- stream process )

diff --git a/basis/io/launcher/windows/windows-tests.factor b/basis/io/launcher/windows/windows-tests.factor
index 995bae00c32ce44cfa8dac402bf6b5ec1bd3d418..13576e9fb38a61380c1fc06785ec57ddb2041f2e 100644 (file)
--- a/basis/io/launcher/windows/windows-tests.factor
+++ b/basis/io/launcher/windows/windows-tests.factor
@@ -144,7 +144,7 @@ SYMBOLS: out-path err-path ;
             console-vm-path "-script" "stderr.factor" 3array >>command
             [ "err2" ".txt" unique-file ] with-temp-directory
             [ err-path set-global ] keep >>stderr
-        utf8 <process-reader> stream-lines first
+        process-lines first
     ] with-directory
 ] unit-test
 

diff --git a/extra/cli/git/git.factor b/extra/cli/git/git.factor
index 03c8cbeabbd41d8319599daf85f8e4cf2eefcdd5..f91ad6aa23212020eedc0310e832d23072a42eee 100644 (file)
--- a/extra/cli/git/git.factor
+++ b/extra/cli/git/git.factor
@@ -12,9 +12,6 @@ cli-git-num-parallel [ cpus 2 * ] initialize
 : git-command>string ( quot -- string )
     utf8 <process-reader> stream-contents [ blank? ] trim-tail ;
 
-: git-command>lines ( quot -- string )
-    utf8 <process-reader> stream-lines ;
-
 : git-clone-as ( uri path -- process ) [ { "git" "clone" } ] 2dip 2array append run-process ;
 : git-clone ( uri -- process ) [ { "git" "clone" } ] dip suffix run-process ;
 : git-pull* ( -- process ) { "git" "pull" } run-process ;
@@ -36,7 +33,7 @@ cli-git-num-parallel [ cpus 2 * ] initialize
 : git-rev-parse* ( branch -- string ) [ { "git" "rev-parse" } ] dip suffix git-command>string ;
 : git-rev-parse ( path branch -- string ) '[ _ git-rev-parse* ] with-directory ;
 : git-diff-name-only* ( from to -- lines )
-    [ { "git" "diff" "--name-only" } ] 2dip 2array append git-command>lines ;
+    [ { "git" "diff" "--name-only" } ] 2dip 2array append process-lines ;
 : git-diff-name-only ( path from to -- lines )
     '[ _ _ git-diff-name-only* ] with-directory ;