filter-values ( assoc quot: ( value -- ? ) -- assoc' )


Vocabulary
assocs

Inputs
assocan object
quota quotation with stack effect ( value -- ? )


Outputs
assoc'an object


Definition


: filter-values ( assoc quot: ( value -- ? ) -- assoc' )
[ [ nip ] ] dip compose assoc-filter ; inline