steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.hashcodes: fix complex number-hashcodes.

db4
John Benediktsson 2013-03-20 12:49:12 -07:00
parent 3b8164da32
commit 4d9d980e22
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/math/hashcodes/hashcodes.factor
View File

@ -46,5 +46,4 @@ M: float number-hashcode ( x -- h )
M: complex number-hashcode ( x -- h ) M: complex number-hashcode ( x -- h )
>rect [ number-hashcode ] bi@ 1000003 * + >rect [ number-hashcode ] bi@ 1000003 * +
[ M 1 - bitand ] [ M bitand ] bi - cell-bits on-bits bitand dup -1 = [ drop -2 ] when ;
dup -1 = [ drop -2 ] when ;