From 6994b0eed801ef0ad1db9dcf1efcafb89825e213 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 23 Jul 2012 09:37:33 -0700
Subject: [PATCH] math.integers: Bignum hashcode* -- call bignum>fixnum to
 avoid a dispatch.

---
 core/math/integers/integers.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index 18281bf88c..fa5d9745d6 100644
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -64,7 +64,7 @@ M: bignum >fixnum bignum>fixnum ; inline
 M: bignum >bignum ; inline
 M: bignum integer>fixnum bignum>fixnum ; inline
 
-M: bignum hashcode* nip >fixnum ;
+M: bignum hashcode* nip bignum>fixnum ;
 
 M: bignum equal?
     over bignum? [ bignum= ] [