html.parser.printer: fix tests, need to decrement before writing.

db4
John Benediktsson 2013-08-05 11:22:09 -07:00
parent 830637c84d
commit 9aeb3b9579
1 changed files with 2 additions and 2 deletions

View 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 ;