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>