new-key@ ( key hash -- array n ? )

Vocabulary

hash-sets.private

Inputs

key	an object
hash	an object

Outputs

array	an object
n	an object
?	an object

Definition

USING: accessors hashtables.private kernel ;

IN: hash-sets.private

: new-key@ ( key hash -- array n ? )
    [ array>> 2dup hash@ 0 f (new-key@) ] keep swap
    [ over [ hash-deleted- ] [ hash-count+ ] if swap or t ]
    [ 2drop f ] if ; inline