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 )
    partition swap ; inline