diff --git a/extra/html/parser/printer/printer.factor b/extra/html/parser/printer/printer.factor index 17b10c91f3..858830e729 100644 --- 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 ;