merge-body-attributes ( document token -- )

Vocabulary

html5

Inputs

document	an object
token	an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: html5

:: merge-body-attributes ( document token -- )
    document template-insertion-modes>> empty? document
    open-elements>> length 1 > and [
        document open-elements>> second :> body body
        html-element? body name>> "body" = and [
            body token merge-element-attributes
            document f >>frameset-ok? drop
        ] when
    ] when ;