hash-large? ( hash -- ? )


Vocabulary
hash-sets.private

Inputs
hashan object


Outputs
?an object


Definition
USING: accessors kernel math.private ;

IN: hash-sets.private

: hash-large? ( hash -- ? )
[ count>> 1 fixnum+fast 3 fixnum*fast ]
[ array>> length>> 1 fixnum-shift-fast ] bi fixnum>= ;
inline