any-key? ( ... assoc quot: ( ... key -- ... ? ) -- ... ? )

Vocabulary

assocs

Inputs

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

Outputs

?

an object

Definition

USING: kernel ;

IN: assocs

: any-key? ( ... assoc quot: ( ... key -- ... ? ) -- ... ? )
    [ drop ] prepose assoc-find 2nip ; inline