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

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 029c8009392c1783682c0917e7e5447ffc7c6bca..d7362c83c18465cdcc3ac72c268fb45f94ad27d7 100644 (file)
--- 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 ] [ <iota> ] 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