grow-hash ( hash -- )

Vocabulary

hash-sets.private

Inputs

hash

an object

Outputs

None

Definition

USING: accessors hash-sets kernel kernel.private math sets ;

IN: hash-sets.private

: grow-hash ( hash -- )
    { hash-set } declare
    [ [ array>> ] [ cardinality 1 + ] [ reset-hash ] tri ] keep
    [ (adjoin) drop ] curry each-member ;