math.hashcodes: fix complex number-hashcodes.

2013-03-20 12:49:12 -07:00 · 2013-03-20 12:49:12 -07:00 · 4d9d980e22
parent 3b8164da32
commit 4d9d980e22
1 changed files with 1 additions and 2 deletions
--- 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 ;