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


Vocabulary
assocs.extras

Inputs
assocan object
keyan object
nan object


Outputs
assocan object
oldan object
newan object


Definition


: of+* ( assoc key n -- assoc old new )
'[ [ 0 or _ + ] 1check dup ] change-of ; inline