rename-of ( assoc key newkey -- assoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
key	an object
newkey	an object

Outputs

assoc

an object

Definition

USING: kernel ;

IN: assocs.extras

: rename-of ( assoc key newkey -- assoc )
    [ delete-of* ] dip swap [ set-of ] [ 2drop ] if ;