From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 5 Aug 2013 16:54:36 +0000 (-0700)
Subject: html.parser.printer: prevent negative indentations.
X-Git-Tag: 0.97~1164
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8aae6a68a67d1b013e4ebf1ff78a21e4a7981abd

html.parser.printer: prevent negative indentations.
---

diff --git a/extra/html/parser/printer/printer.factor b/extra/html/parser/printer/printer.factor
index eabd53b4d0..5e636ef6ff 100644
--- a/extra/html/parser/printer/printer.factor
+++ b/extra/html/parser/printer/printer.factor
@@ -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>>