add-tag-attrs ( attrs tag -- )

Vocabulary

furnace.chloe-tags

Inputs

attrs	an object
tag	an object

Outputs

None

Definition

USING: accessors assocs kernel ;

IN: furnace.chloe-tags

: add-tag-attrs ( attrs tag -- )
    attrs>> swap assoc-union! drop ;