From 4f046b10be329aa741116857b324566880e3ee10 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 20 Dec 2021 15:30:53 -0600
Subject: [PATCH] factor: fix some lines -> read-lines

---
 basis/alien/libraries/finder/freebsd/freebsd.factor | 2 +-
 basis/alien/libraries/finder/linux/linux.factor     | 4 ++--
 basis/tools/deploy/deploy-tests.factor              | 4 ++--
 extra/contributors/contributors.factor              | 2 +-
 extra/irc/gitbot/gitbot.factor                      | 2 +-
 extra/mason/git/git.factor                          | 4 ++--
 extra/spotlight/spotlight.factor                    | 2 +-
 7 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/basis/alien/libraries/finder/freebsd/freebsd.factor b/basis/alien/libraries/finder/freebsd/freebsd.factor
index 23cc2535d3..087d05c814 100644
--- 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 5dc314be92..e2dfc3965d 100644
--- 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 c79f433079..0b5028a5da 100644
--- 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 c73cd3e58f..6ff6ba622f 100644
--- 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 76cef57daa..79b9137977 100644
--- 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 6cdcd5fe8a..e66debb4c7 100644
--- 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 b368b7ed3e..63e114d31e 100644
--- 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>
 
-- 
2.34.1