Vocabulary
metar.private

Inputs
seqan object
quota quotation with stack effect ( elt -- ? )


Outputs
seqan object
elt/fan object


Definition


: find-one ( seq quot: ( elt -- ? ) -- seq elt/f )
dupd find drop [ tail unclip ] [ f ] if* ; inline