push-attribute ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors assocs kernel sequences ;

IN: html5

:: push-attribute ( document -- )
    document current-attribute [
        :> attribute document tag>> attributes>> :> attributes
        attribute first attributes key?
        [ "duplicate-attribute" report-parse-error ]
        [ attribute attributes push ] if
    ] when* document reset-attribute ;