filter-members ( hash-set array quot: ( elt -- ? ) -- accum )

Vocabulary

hash-sets.private

Inputs

hash-set	an object
array	an object
quot	a quotation with stack effect ( elt -- ? )

Outputs

accum

an object

Definition

USING: growable.private kernel sequences sets vectors ;

IN: hash-sets.private

: filter-members
    ( hash-set array quot: ( elt -- ? ) -- accum )
    rot cardinality <vector> [
        [ push-unsafe ] curry [ [ [ dup ] ] dip compose ] dip
        [ [ drop ] if ] curry compose each
    ] keep ; inline