collect-assoc-by! ( ... assoc input-assoc quot: ( ... key value -- ... key' value' ) -- ... assoc )

Vocabulary

assocs.extras

Inputs

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

Outputs

assoc

an object

Definition

USING: assocs kernel ;

IN: assocs.extras

: collect-assoc-by!
    ( ... assoc input-assoc quot: ( ... key value -- ... key' value' ) -- ... assoc )
    rot [ '[ @ swap _ push-at ] assoc-each ] keep ; inline