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

Vocabulary

assocs

Inputs

assoc	an object
quot	a quotation with stack effect ( value -- ? )

Outputs

assoc'

an object

Definition

USING: kernel ;

IN: assocs

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