factor: fix some lines -> read-lines

diff --git a/basis/alien/libraries/finder/freebsd/freebsd.factor b/basis/alien/libraries/finder/freebsd/freebsd.factor
index 23cc2535d365620ba522bed8c68fd98bc759b6f3..087d05c814e5b57b4fe1855b8ba85834c71a2638 100644 (file)
--- a/basis/alien/libraries/finder/freebsd/freebsd.factor
+++ b/basis/alien/libraries/finder/freebsd/freebsd.factor
@@ -12,7 +12,7 @@ IN: alien.libraries.finder.freebsd
    ] map ;
 
 : load-ldconfig-cache ( -- seq )
-    "/sbin/ldconfig -r" utf8 [ lines ] with-process-reader
+    "/sbin/ldconfig -r" utf8 [ read-lines ] with-process-reader
     rest parse-ldconfig-lines ;
 
 : name-matches? ( lib double -- ? )

diff --git a/basis/alien/libraries/finder/linux/linux.factor b/basis/alien/libraries/finder/linux/linux.factor
index 5dc314be9279289b49c44ba9c1f95842ce33e856..e2dfc3965d63f2f81e42f38bc68bb91a41b0557b 100644 (file)
--- a/basis/alien/libraries/finder/linux/linux.factor
+++ b/basis/alien/libraries/finder/linux/linux.factor
@@ -25,7 +25,7 @@ CONSTANT: mach-map {
     ] map ;
 
 : load-ldconfig-cache ( -- seq )
-    "/sbin/ldconfig -p" utf8 [ lines ] with-process-reader*
+    "/sbin/ldconfig -p" utf8 [ read-lines ] with-process-reader*
     2drop [ f ] [ rest parse-ldconfig-lines ] if-empty ;
 
 : ldconfig-arch ( -- str )
@@ -49,7 +49,7 @@ CONSTANT: mach-map {
         [
             "ld" , "-t" , ":" split [ "-L" , , ] each
             "-o" , "/dev/null" , "-l" name append ,
-        ] { } make utf8 [ lines ] with-process-reader* 2drop
+        ] { } make utf8 [ read-lines ] with-process-reader* 2drop
         "lib" name append '[ _ swap subseq? ] find nip
     ] [ f ] if* ;
 

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index c79f43307902dc00598644b7f1323e6c53606070..0b5028a5daa66d4e5eaf7df8869c7587d9c746d3 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -27,7 +27,7 @@ delete-staging-images
     } [
         "hello-world" deploy
         "hello-world" deploy-path 1array
-        ascii [ lines ] with-process-reader
+        ascii [ read-lines ] with-process-reader
     ] with-variables
 ] long-unit-test
 
@@ -143,7 +143,7 @@ os macosx? [
 { { "a" "b" "c" } } [
     "tools.deploy.test.15" shake-and-bake deploy-test-command
     { "a" "b" "c" } append
-    ascii [ lines ] with-process-reader
+    ascii [ read-lines ] with-process-reader
     rest
 ] long-unit-test
 

diff --git a/extra/contributors/contributors.factor b/extra/contributors/contributors.factor
index c73cd3e58f7b69b2e93a36621360f95061a405f4..6ff6ba622f38414aee8ad9761fe254c2e7a6ec18 100644 (file)
--- a/extra/contributors/contributors.factor
+++ b/extra/contributors/contributors.factor
@@ -22,7 +22,7 @@ CONSTANT: aliases {
 : changelog ( -- authors )
     image-path parent-directory [
         "git log --no-merges --pretty=format:%an"
-        utf8 [ lines ] with-process-reader
+        utf8 [ read-lines ] with-process-reader
     ] with-directory ;
 
 : merge-aliases ( authors -- authors' )

diff --git a/extra/irc/gitbot/gitbot.factor b/extra/irc/gitbot/gitbot.factor
index 76cef57daa4971a2c4ab4cb7ce6c8438d3930fb9..79b91379771384b35c91946df57bba486e16c395 100644 (file)
--- a/extra/irc/gitbot/gitbot.factor
+++ b/extra/irc/gitbot/gitbot.factor
@@ -39,7 +39,7 @@ M: object handle-message drop ;
         "--pretty=format:%h %an: %s" ,
         ".." glue ,
     ] { } make
-    utf8 [ lines ] with-process-reader ;
+    utf8 [ read-lines ] with-process-reader ;
 
 : updates ( from to -- lines )
     git-log reverse

diff --git a/extra/mason/git/git.factor b/extra/mason/git/git.factor
index 6cdcd5fe8a8505b75c1bf23cceb2f7270102d955..e66debb4c76b68e0e5000726ad7e5b43385163c8 100644 (file)
--- a/extra/mason/git/git.factor
+++ b/extra/mason/git/git.factor
@@ -7,7 +7,7 @@ splitting ;
 IN: mason.git
 
 : git-id ( -- id )
-    { "git" "show" } utf8 [ lines ] with-process-reader
+    { "git" "show" } utf8 [ read-lines ] with-process-reader
     first words second ;
 
 <PRIVATE
@@ -57,7 +57,7 @@ IN: mason.git
     { "git" "status" "--porcelain" } ;
 
 : git-status ( -- seq )
-    git-status-cmd utf8 [ lines ] with-process-reader ;
+    git-status-cmd utf8 [ read-lines ] with-process-reader ;
 
 : check-repository ( -- seq )
     "factor" [ git-status ] with-directory ;

diff --git a/extra/spotlight/spotlight.factor b/extra/spotlight/spotlight.factor
index b368b7ed3eb9913bd688f355cf491482478f4007..63e114d31eff3546b9a0919f8903ff09f3cad796 100644 (file)
--- a/extra/spotlight/spotlight.factor
+++ b/extra/spotlight/spotlight.factor
@@ -45,7 +45,7 @@ IN: spotlight
 <PRIVATE
 
 : run-process-output ( command -- seq )
-    utf8 [ lines ] with-process-reader ;
+    utf8 [ read-lines ] with-process-reader ;
 
 PRIVATE>