find-all ( seq quot: ( elt -- ? ) -- seq elts )

Vocabulary

metar.private

Inputs

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

Outputs

seq	an object
elts	an object

Definition

USING: kernel sequences ;

IN: metar.private

: find-all ( seq quot: ( elt -- ? ) -- seq elts )
    [ dupd find drop ] keep [ [ dup ?first ] ] dip
    [ [ f ] if* ] curry compose [ [ cut ] ] dip
    [ [ unclip ] produce [ append ] dip ] curry compose
    [ f ] if* ; inline