]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/wikipedia/wikipedia.factor
html.parser.printer: add helper words with string output.
[factor.git] / extra / wikipedia / wikipedia.factor
index 67db2d124edea7f3f536fe003b355d9aa75bef32..9d609659f2bac3be634e91ff4f184544e8d43c4f 100644 (file)
@@ -76,7 +76,7 @@ PRIVATE>
 : article. ( name -- )
     wikipedia-url http-get nip parse-html
     "content" find-by-id-between
-    [ html-text. ] with-string-writer string-lines
+    html-text string-lines
     [ [ blank? ] trim ] map harvest [
         html-unescape 72 wrap-string print nl
     ] each ;