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>
    [ '[ dup @ [ _ push-unsafe ] [ drop ] if ] each ] keep ;
    inline