at+* ( n key assoc -- old new )


Vocabulary
sequences.extras

Inputs
nan object
keyan object
assocan object


Outputs
oldan object
newan object


Definition
USING: assocs kernel math ;

IN: sequences.extras

: at+* ( n key assoc -- old new )
[ 0 or [ + ] keep swap dup ] change-at ; inline