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


Vocabulary
assocs.extras

Inputs
input-assocan object
quota quotation with stack effect ( ... key value -- ... new-key )


Outputs
assocan object


Definition


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