html.parser.printer: prevent negative indentations.

db4
John Benediktsson 2013-08-05 09:54:36 -07:00
parent 1d5a598929
commit 8aae6a68a6
1 changed files with 3 additions and 3 deletions

View File

@ -1,6 +1,6 @@
USING: accessors assocs combinators html.parser
html.parser.utils io kernel math namespaces sequences strings
unicode.categories ;
html.parser.utils io kernel math math.order namespaces sequences
strings unicode.categories ;
IN: html.parser.printer
TUPLE: html-printer ;
@ -79,7 +79,7 @@ SYMBOL: tagstack
] with-scope ;
: tabs ( -- vseq )
tab-width get #indentations get * CHAR: \s <repetition> ;
tab-width get #indentations get 0 max * CHAR: \s <repetition> ;
M: html-prettyprinter print-opening-tag ( tag -- )
name>>