]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/farkup/farkup.factor
core: Change lines -> read-lines, contents -> read-contents, string-lines -> lines
[factor.git] / basis / farkup / farkup.factor
index 4107bb7d16bead719fc8e6bf52850d98b9326df3..3d4587b76293f609ff012daf521435f391591b85 100644 (file)
@@ -203,7 +203,7 @@ DEFER: (parse-paragraph)
     } case ;
 
 : parse-farkup ( string -- farkup )
-    string-lines [ dup empty? not ] [ parse-item ] produce nip sift ;
+    lines [ dup empty? not ] [ parse-item ] produce nip sift ;
 
 CONSTANT: invalid-url "javascript:alert('Invalid URL in farkup');"
 
@@ -217,7 +217,7 @@ CONSTANT: invalid-url "javascript:alert('Invalid URL in farkup');"
     } cond ;
 
 : render-code ( string mode -- xml )
-    [ string-lines ] dip htmlize-lines
+    [ lines ] dip htmlize-lines
     [XML <pre><-></pre> XML] ;
 
 GENERIC: (write-farkup) ( farkup -- xml )