mark-end-tag ( document token -- )

Vocabulary

html5

Inputs

document	an object
token	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: mark-end-tag ( document token -- )
    document open-elements>>
    [ name>> token name>> = ] find-last nip
    [ token >>end-tag drop ] when* ;