From fef1b2fb00c5449eba6efa75de8d173c50024971 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 5 Jan 2014 23:09:07 -0800 Subject: [PATCH] hash-sets: use >= in hash-large?. --- core/hash-sets/hash-sets.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor index 5833f49eda..a00fe06278 100644 --- 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