make html.parser words private

2009-04-01 12:48:51 -05:00 · 2009-04-01 12:48:51 -05:00 · 28dae46b7d
parent 9ecf8ec3db
commit 28dae46b7d
1 changed files with 5 additions and 0 deletions
--- 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 ;