             incorrectly-opened-comment ! bogus-comment-state
         ]
     } cond ;
-
-: markup-declaration-open-state ( document n/f string -- document n'/f string )
-    next-char-from (markup-declaration-open-state) ;
-
 
 : (comment-start-state) ( document n/f string ch/f -- document n'/f string )
     {

    next-char-from (bogus-comment-state) ;


: (markup-declaration-open-state) ( document n/f string ch/f -- document n'/f string )
    drop {
        { [ "--" take-from? ] [ comment-start-state ] }
        { [ "DOCTYPE" take-from-insensitive? ] [ doctype-state ] }
        { [ "[CDATA[" take-from-insensitive? ] [ unimplemented* ] }

        initial-mode >>tree-insert-mode
        <doctype> >>doctype-token
        SBUF" " clone >>tag-name
        SBUF" " clone >>attribute-name
        SBUF" " clone >>attribute-value
        SBUF" " clone >>temporary-buffer
