ignored-early-end-tag? ( document obj -- ? )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

?

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: ignored-early-end-tag? ( document obj -- ? )
    obj end-tag? document insertion-mode>>
    { before-html-mode before-head-mode after-head-mode }
    member? and obj end-tag?
    [ obj name>> { "head" "body" "html" "br" } member? not ]
    [ f ] if and ;