From 4d9d980e2267456302150d31fea71e6314ccf5ca Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 20 Mar 2013 12:49:12 -0700 Subject: [PATCH] math.hashcodes: fix complex number-hashcodes. --- extra/math/hashcodes/hashcodes.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/extra/math/hashcodes/hashcodes.factor b/extra/math/hashcodes/hashcodes.factor index 42abe8cf85..f0d7197e68 100644 --- a/extra/math/hashcodes/hashcodes.factor +++ b/extra/math/hashcodes/hashcodes.factor @@ -46,5 +46,4 @@ M: float number-hashcode ( x -- h ) M: complex number-hashcode ( x -- h ) >rect [ number-hashcode ] bi@ 1000003 * + - [ M 1 - bitand ] [ M bitand ] bi - - dup -1 = [ drop -2 ] when ; + cell-bits on-bits bitand dup -1 = [ drop -2 ] when ;