]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/gemini/cli/cli.factor
core: Change lines -> read-lines, contents -> read-contents, string-lines -> lines
[factor.git] / extra / gemini / cli / cli.factor
index 45b15920be04e6c2dbd0afeb92a31024136fc868..34b1fa0af21933612dbfa998b9fc0313299a8a49 100644 (file)
@@ -78,7 +78,7 @@ CONSTANT: URL V{ }
 : gemini-print ( url body meta -- )
     f pre [
         PAGE delete-all
-        gemini-charset decode string-lines [
+        gemini-charset decode lines [
             { [ pre get not ] [ "=>" ?head ] } 0&& [
                 swap gemini-link present over 2array PAGE push
                 PAGE length swap "[%s] %s\n" printf