clear-to-table-context ( document names -- )

Vocabulary

html5

Inputs

document	an object
names	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: clear-to-table-context ( document names -- )
    document open-elements>> :> stack [
        stack ?last [
            name>> names { "template" "html" } append member?
            not
        ] [ f ] if*
    ] [ stack pop drop ] while ;