(delete) ( key hash -- ? )

Vocabulary

hash-sets.private

Inputs

key	an object
hash	an object

Outputs

?

an object

Definition

USING: hashtables.private kernel ;

IN: hash-sets.private

: (delete) ( key hash -- ? )
    [ nip ] [ key@ ] 2bi
    [ [ +tombstone+ ] 2dip set-nth-item hash-deleted+ t ]
    [ 3drop f ] if ; inline