map-values ( assoc quot: ( value -- value' ) -- assoc )

Vocabulary

assocs

Inputs

assoc	an object
quot	a quotation with stack effect ( value -- value' )

Outputs

assoc

an object

Definition

USING: kernel ;

IN: assocs

: map-values ( assoc quot: ( value -- value' ) -- assoc )
    [ [ swap ] ] dip [ dip swap ] curry compose assoc-map ;
    inline