filter-keys ( assoc quot: ( key -- ? ) -- assoc' )


Vocabulary
assocs

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


Outputs
assoc'an object


Definition


: filter-keys ( assoc quot: ( key -- ? ) -- assoc' )
[ [ drop ] ] dip compose assoc-filter ; inline