From 260abd3d7c262ec97182bfb12fb3e071f8e4bd52 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 5 Jan 2014 23:08:53 -0800
Subject: [PATCH] hashtables: use >= in hash-large?.

---
 core/hashtables/hashtables.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 5327d122d7..606b819ddc 100644
--- 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 -- ) -- )
     [