From 28dae46b7dffd39b3aa856110564a672d778fc99 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Wed, 1 Apr 2009 12:48:51 -0500
Subject: [PATCH] make html.parser words private

---
 extra/html/parser/parser.factor | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/extra/html/parser/parser.factor b/extra/html/parser/parser.factor
index f95684ae15..498691e2b2 100644
--- a/extra/html/parser/parser.factor
+++ b/extra/html/parser/parser.factor
@@ -11,6 +11,9 @@ TUPLE: tag name attributes text closing? ;
 SINGLETON: text
 SINGLETON: dtd
 SINGLETON: comment
+
+<PRIVATE
+
 SYMBOL: tagstack
 
 : push-tag ( tag -- )
@@ -118,5 +121,7 @@ SYMBOL: tagstack
 : tag-parse ( quot -- vector )
     V{ } clone tagstack [ state-parse ] with-variable ; inline
 
+PRIVATE>
+
 : parse-html ( string -- vector )
     [ (parse-html) tagstack get ] tag-parse ;