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

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 0d36f90908faea3084e1f38366459396bb2313a6..2be18763efa6b840e0479b6ea5ed600b5adff999 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -359,7 +359,7 @@ M: tuple equal? over tuple? [ tuple= ] [ 2drop f ] if ;
         [ class hashcode ] [ tuple-size ] bi
         [ dup fixnum+fast 82520 fixnum+fast ] [ iota ] bi
     ] 2keep [
-        swapd array-nth hashcode* rot fixnum-bitxor
+        swapd array-nth hashcode* >fixnum rot fixnum-bitxor
         pick fixnum*fast [ [ fixnum+fast ] keep ] dip swap
     ] 2curry each drop nip 97531 fixnum+fast ; inline