(map-find) ( seq quot find-quot -- result elt )


Vocabulary
sequences.private

Inputs
seqan object
quotan object
find-quotan object


Outputs
resultan object
eltan object


Definition
USING: kernel ;

IN: sequences.private

: (map-find) ( seq quot find-quot -- result elt )
[ [ f ] 2dip [ nip ] prepose [ dup ] compose ] dip call nip
; inline