generate-implied-end-tags ( document except -- )

Vocabulary

html5

Inputs

document	an object
except	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: html5

:: generate-implied-end-tags ( document except -- )
    document open-elements>> :> stack [
        stack ?last [
            {
                [ html-element? ]
                [
                    name>> dup except =
                    not swap implied-end-elements member? and
                ]
            } 1&&
        ] [ f ] if*
    ] [ stack pop drop ] while ;