 TUPLE: document
 tree
 tree-insert-mode
-doctype-name
+doctype-token
 tag-name
 end-tag-name
 attribute-name


: (bogus-doctype-state) ( document n/f string ch/f -- document n'/f string )
    {
        [ unimplemented* ]
    } cond ;

: bogus-doctype-state ( document n/f string -- document n'/f string )

: (comment-start-state) ( document n/f string ch/f -- document n'/f string )
    {
        { [ dup CHAR: - = ] [ drop comment-start-dash-state ] }
        { [ dup CHAR: > = ] [ drop abrupt-closing-of-empty-comment pick emit-comment-token data-state ] }
        [ (comment-state) ]
    } cond ;

