]> gitweb.factorcode.org Git - factor.git/commitdiff
html.parser.printer: fix tests, need to decrement before writing.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 5 Aug 2013 18:22:09 +0000 (11:22 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 5 Aug 2013 18:22:09 +0000 (11:22 -0700)
extra/html/parser/printer/printer.factor

index 5e636ef6ff8052ace9e371970e5bdb592fce6732..bfedd2124fca185b1e7c115b8399204639d90694 100644 (file)
@@ -88,9 +88,9 @@ M: html-prettyprinter print-opening-tag ( tag -- )
     [ { "br" "img" } member? [ #indentations inc ] unless ] bi ;
 
 M: html-prettyprinter print-closing-tag ( tag -- )
-    [ tabs write "</" write name>> write ">\n" write ]
     ! These tags usually don't have any closing tag associated with them.
-    [ { "br" "img" } member? [ #indentations dec ] unless ] bi ;
+    [ { "br" "img" } member? [ #indentations dec ] unless ]
+    [ tabs write "</" write name>> write ">\n" write ] bi ;
 
 M: html-prettyprinter print-text-tag ( tag -- )
     text>> [ blank? ] trim [ tabs write write "\n" write ] unless-empty ;