From 81caec378da14a07ece8778f4c4b24351db129da Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 10 Jan 2019 21:39:24 -0800 Subject: [PATCH] classes.tuple: use integer>fixnum in tuple-hashcode. --- core/classes/tuple/tuple.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor index 029c800939..d7362c83c1 100644 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -376,7 +376,7 @@ M: tuple equal? over tuple? [ tuple= ] [ 2drop f ] if ; [ class-of hashcode ] [ tuple-size ] bi [ dup fixnum+fast 82520 fixnum+fast ] [ ] bi ] 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 ] 2curry each drop nip 97531 fixnum+fast ; inline