each-member ( ... array quot: ( ... elt -- ... ) -- ... )

Vocabulary

hash-sets.private

Inputs

array	an object
quot	a quotation with stack effect ( ... elt -- ... )

Outputs

None

Definition

USING: hashtables.private kernel sequences ;

IN: hash-sets.private

: each-member ( ... array quot: ( ... elt -- ... ) -- ... )
    [ [ dup tombstone? [ drop ] ] ] dip [ if ] curry compose
    each ; inline