find* ( ... seq quot: ( ... elt -- ... ? ) -- ... elt i/f )

Vocabulary

sequences.extras

Inputs

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

Outputs

elt	an object
i/f	an object

Definition

USING: kernel sequences.private ;

IN: sequences.extras

: find*
    ( ... seq quot: ( ... elt -- ... ? ) -- ... elt i/f )
    [ 0 ] 2dip do-find-from element/index ; inline