adjoin-at ( value key assoc -- )

Vocabulary

sets

Inputs

value	an object
key	an object
assoc	an assoc

Outputs

None

Word description

Adds value to the set stored at key of assoc.

Side effects

Modifies assoc

Definition

USING: assocs kernel ;

IN: sets

: adjoin-at ( value key assoc -- )
    [ [ f fast-set ] unless* [ adjoin ] keep ] change-at ;