collect-value-by-multi ( ... assoc quot: ( ... value -- ... new-keys ) -- ... assoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
quot	a quotation with stack effect ( ... value -- ... new-keys )

Outputs

assoc

an object

Definition

USING: kernel ;

IN: assocs.extras

: collect-value-by-multi
    ( ... assoc quot: ( ... value -- ... new-keys ) -- ... assoc )
    [ H{ } clone ] 2dip collect-value-by-multi! ; inline