change-of ( ..a assoc key quot: ( ..a value -- ..b newvalue ) -- ..b assoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
key	an object
quot	a quotation with stack effect ( ..a value -- ..b newvalue )

Outputs

assoc

an object

Definition

USING: assocs kernel ;

IN: assocs.extras

: change-of
    ( ..a assoc key quot: ( ..a value -- ..b newvalue ) -- ..b assoc )
    [ [ of ] dip call ] 2keepd rot set-of ; inline