find-one ( seq quot: ( elt -- ? ) -- seq' elt/f )

Vocabulary

metar.private

Inputs

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

Outputs

seq'	an object
elt/f	an object

Definition

USING: kernel sequences ;

IN: metar.private

: find-one ( seq quot: ( elt -- ? ) -- seq' elt/f )
    dupd find [ [ swap remove-nth ] when* ] dip ; inline