 : make-tag ( string attribs -- tag )
     [ [ closing-tag? ] keep "/" trim1 ] dip rot <tag> ;
 
-: new-tag ( string type -- tag )
+: new-tag ( text name -- tag )
     tag new
         swap >>name
         swap >>text ; inline
-
-: make-text-tag ( string -- tag ) text new-tag ; inline
-
-: make-comment-tag ( string -- tag ) comment new-tag ; inline
-
-: make-dtd-tag ( string -- tag ) dtd new-tag ; inline
 
 : read-single-quote ( state-parser -- string )
     [ [ current CHAR: ' = ] take-until ] [ next drop ] bi ;

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays hashtables html.parser.state
html.parser.utils kernel make namespaces sequences
unicode.case unicode.categories combinators.short-circuit
quoting ;
IN: html.parser

    [ blank? ] trim ;

: read-comment ( state-parser -- )
    "-->" take-until-sequence comment new-tag push-tag ;

: read-dtd ( state-parser -- )
    ">" take-until-sequence dtd new-tag push-tag ;

: read-bang ( state-parser -- )
    next dup { [ current CHAR: - = ] [ peek-next CHAR: - = ] } 1&& [
