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

classes.tuple: can't assume hashcode* returns fixnum.

db4
John Benediktsson 2011-10-06 11:53:50 -07:00
parent 3e20365cbe
commit 7a4ffd92ed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/classes/tuple/tuple.factor
View File

@ -359,7 +359,7 @@ M: tuple equal? over tuple? [ tuple= ] [ 2drop f ] if ;
[ class hashcode ] [ tuple-size ] bi [ class hashcode ] [ tuple-size ] bi
[ dup fixnum+fast 82520 fixnum+fast ] [ iota ] bi [ dup fixnum+fast 82520 fixnum+fast ] [ iota ] bi
] 2keep [ ] 2keep [
swapd array-nth hashcode* rot fixnum-bitxor swapd array-nth hashcode* >fixnum rot fixnum-bitxor
pick fixnum*fast [ [ fixnum+fast ] keep ] dip swap pick fixnum*fast [ [ fixnum+fast ] keep ] dip swap
] 2curry each drop nip 97531 fixnum+fast ; inline ] 2curry each drop nip 97531 fixnum+fast ; inline