hash-sets: use >= in hash-large?.

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 5833f49eda164b8f51d1cc4d7083754e871a5c09..a00fe06278c1b78f65a569799aa58a6c714b6392 100644 (file)
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -68,8 +68,8 @@ TUPLE: hash-set
     [ (adjoin) drop ] curry each ; inline
 
 : hash-large? ( hash -- ? )
-    [ count>> 3 fixnum*fast 1 fixnum+fast ]
-    [ array>> length>> 1 fixnum-shift-fast ] bi fixnum> ; inline
+    [ count>> 3 fixnum*fast ]
+    [ array>> length>> 1 fixnum-shift-fast ] bi fixnum>= ; inline
 
 : each-member ( array quot: ( elt -- ) -- )
     [ if ] curry [ dup tombstone? [ drop ] ] prepose each ; inline