other-formatting-end-tag ( document token -- )

Vocabulary

html5

Inputs

document	an object
token	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: html5

:: other-formatting-end-tag ( document token -- )
    document open-elements>> [
        {
            [
                { [ html-element? ] [ name>> token name>> = ] }
                1&&
            ]
            [ special-element? ]
        } 1||
    ] find-last nip [
        dup html-element? over name>> token name>> = and [
            drop document token name>> generate-implied-end-tags
            document token close-element
        ] [ drop ] if
    ] when* ;