adjoin-at* ( value key assoc -- set )

Vocabulary

sets.extras

Inputs

value	an object
key	an object
assoc	an object

Outputs

set

an object

Definition

USING: assocs kernel sets ;

IN: sets.extras

: adjoin-at* ( value key assoc -- set )
    [ [ HS{ } clone ] unless* [ adjoin ] keep dup ] change-at ;