not-tombstones ( quot: ( elt -- ? ) -- quot: ( elt -- ? ) )

Vocabulary

hash-sets.private

Inputs

quot	a quotation with stack effect ( elt -- ? )

Outputs

quot	a quotation with stack effect ( elt -- ? )

Definition

USING: hashtables.private kernel ;

IN: hash-sets.private

: not-tombstones
    ( quot: ( elt -- ? ) -- quot: ( elt -- ? ) )
    [ [ dup tombstone? [ drop f ] ] ] dip [ if ] curry compose ;
    inline