adopt-formatting ( document formatting -- continue? )

Vocabulary

html5

Inputs

document	an object
formatting	an object

Outputs

continue?

an object

Definition

USING: accessors kernel ;

IN: html5

:: adopt-formatting ( document formatting -- continue? )
    formatting document open-elements>> node-index [
        :> index document formatting node-in-scope?
        [ document formatting index adopt-open-formatting ] [
            "formatting-element-out-of-scope" report-parse-error
            f
        ] if
    ] [
        formatting document active-formatting-elements>>
        remove-node
        "formatting-element-not-open" report-parse-error f
    ] if* ;