hashtables: use >= in hash-large?.

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 5327d122d7bfcefb9a78bb712c2b16ed96231e29..606b819ddc086e85b7a213d03544a319b368b0eb 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -94,8 +94,8 @@ TUPLE: hashtable
     [ swapd (set-at) ] curry assoc-each ; inline
 
 : hash-large? ( hash -- ? )
-    [ count>> 3 fixnum*fast 1 fixnum+fast ]
-    [ array>> length>> ] bi fixnum> ; inline
+    [ count>> 3 fixnum*fast ]
+    [ array>> length>> ] bi fixnum>= ; inline
 
 : each-pair ( array quot: ( key value -- ) -- )
     [