invert-assoc ( assoc -- inverted )

Vocabulary

compiler.cfg.gvn.testing

Inputs

assoc

an object

Outputs

inverted

an object

Definition

USING: assocs kernel ;

IN: compiler.cfg.gvn.testing

: invert-assoc ( assoc -- inverted )
    V{ } clone [ [ push-at ] curry assoc-each ] keep ;