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

classes.tuple: use integer>fixnum in tuple-hashcode.

freebsd-work
John Benediktsson 2019-01-10 21:39:24 -08:00
parent c2684d5875
commit 81caec378d
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

@ -376,7 +376,7 @@ M: tuple equal? over tuple? [ tuple= ] [ 2drop f ] if ;
[ class-of hashcode ] [ tuple-size ] bi [ class-of 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* >fixnum rot fixnum-bitxor swapd array-nth hashcode* integer>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