assoc-invert-as ( assoc exemplar -- newassoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
exemplar	an object

Outputs

newassoc

an object

Definition

USING: assocs kernel ;

IN: assocs.extras

: assoc-invert-as ( assoc exemplar -- newassoc )
    [ swap ] swap assoc-map-as ;