assoc-collect! ( assoc1 assoc2 -- assoc1 )


Vocabulary
assocs.extras

Inputs
assoc1an object
assoc2an object


Outputs
assoc1an object


Definition
USING: assocs kernel ;

IN: assocs.extras

: assoc-collect! ( assoc1 assoc2 -- assoc1 )
over [ [ swap ] ] dip [ push-at ] curry compose assoc-each ;