merge-element-attributes ( element token -- )

Vocabulary

html5

Inputs

element	an object
token	an object

Outputs

None

Definition

USING: accessors assocs kernel sequences ;

IN: html5

:: merge-element-attributes ( element token -- )
    element attributes>> :> attributes token attributes>> [
        dup first attributes key?
        [ drop ] [ attributes push ] if
    ] each ;