From 9447cc529ec6b83876879515e773013a15e97641 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 10 Jan 2008 22:06:29 -0500 Subject: [PATCH] Use file-lines more --- extra/help/cookbook/cookbook.factor | 2 +- extra/porter-stemmer/porter-stemmer-tests.factor | 2 +- extra/project-euler/067/067.factor | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/help/cookbook/cookbook.factor b/extra/help/cookbook/cookbook.factor index fc28cff7fa..5cb168b1fd 100755 --- a/extra/help/cookbook/cookbook.factor +++ b/extra/help/cookbook/cookbook.factor @@ -199,7 +199,7 @@ ARTICLE: "cookbook-io" "I/O cookbook" } "Print the lines of a file in sorted order:" { $code - "\"lines.txt\" lines natural-sort [ print ] each" + "\"lines.txt\" file-lines natural-sort [ print ] each" } "Read 1024 bytes from a file:" { $code diff --git a/extra/porter-stemmer/porter-stemmer-tests.factor b/extra/porter-stemmer/porter-stemmer-tests.factor index 20050cc5e7..d3e031fdc6 100644 --- a/extra/porter-stemmer/porter-stemmer-tests.factor +++ b/extra/porter-stemmer/porter-stemmer-tests.factor @@ -56,7 +56,7 @@ io.files ; [ "hell" ] [ "hell" step5 "" like ] unit-test [ "mate" ] [ "mate" step5 "" like ] unit-test -: resource-lines resource-path lines ; +: resource-lines resource-path file-lines ; [ { } ] [ "extra/porter-stemmer/test/voc.txt" resource-lines diff --git a/extra/project-euler/067/067.factor b/extra/project-euler/067/067.factor index a675a5635e..40dee3c51a 100644 --- a/extra/project-euler/067/067.factor +++ b/extra/project-euler/067/067.factor @@ -39,7 +39,7 @@ IN: project-euler.067 : pyramid ( -- seq ) "resource:extra/project-euler/067/triangle.txt" ?resource-path - lines [ " " split [ string>number ] map ] map ; + file-lines [ " " split [ string>number ] map ] map ; PRIVATE> @@ -66,7 +66,7 @@ PRIVATE> ] "" make ; : source-067a ( -- triangle ) - (source-067a) lines [ " " split [ string>number ] map ] map ; + (source-067a) file-lines [ " " split [ string>number ] map ] map ; PRIVATE>