grow-hash ( hash -- )

Vocabulary

hashtables.private

Inputs

hash	a hashtable

Outputs

None

Word description

Enlarges the capacity of a hashtable. User code does not need to call this word directly.

Side effects

Modifies hash

Definition

USING: accessors assocs hashtables kernel kernel.private math ;

IN: hashtables.private

: grow-hash ( hash -- )
    { hashtable } declare
    [ [ array>> ] [ assoc-size 1 + ] [ reset-hash ] tri ] keep
    [ swapd (set-at) ] curry each-pair ;