find-deep ( ... seq quot: ( ... elt -- ... calc ) -- ... calc/f )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	a quotation with stack effect ( ... elt -- ... calc )

Outputs

calc/f

an object

Definition

USING: kernel ;

IN: sequences.extras

: find-deep
    ( ... seq quot: ( ... elt -- ... calc ) -- ... calc/f )
    [ ] find-pred 2drop ; inline