leave-foreign-content ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: html5

:: leave-foreign-content ( document -- )
    document open-elements>> :> stack [
        stack ?last [
            {
                [ html-element? ]
                [ mathml-text-integration-point? ]
                [ html-integration-point? ]
            } 1|| not
        ] [ f ] if*
    ] [ stack pop drop ] while ;