html.parser.printer: don't print comments.

diff --git a/extra/html/parser/printer/printer.factor b/extra/html/parser/printer/printer.factor
index 17b10c91f3be602538c8610aef4434e663b2b93d..858830e729caea0ad4dd3117d37f757dd5ee4acd 100644 (file)
--- a/extra/html/parser/printer/printer.factor
+++ b/extra/html/parser/printer/printer.factor
@@ -41,6 +41,8 @@ ERROR: unknown-tag-error tag ;
 M: text-printer print-opening-tag
     name>> {
         { "br" [ nl ] }
+        { "ol" [ nl ] }
+        { "ul" [ nl ] }
         { "li" [ " * " write ] }
         [ drop ]
     } case ;
@@ -56,6 +58,8 @@ M: text-printer print-closing-tag
     ]
     [ "td" = [ " " write ] when ] tri ;
 
+M: text-printer print-comment-tag drop ;
+
 M: html-printer print-text-tag ( tag -- )
     text>> write ;