rename-X ( new old assoc quot: ( obj value -- obj ) -- )

Vocabulary

irc.client.participants

Inputs

new	an object
old	an object
assoc	an object
quot	a quotation with stack effect ( obj value -- obj )

Outputs

None

Definition

USING: assocs kernel ;

IN: irc.client.participants

: rename-X ( new old assoc quot: ( obj value -- obj ) -- )
    [ [ delete-at* drop swap ] ] dip compose [ nip set-at ] 3bi
    ; inline