From 188d8a4a98754095ccad302f85f86bfde7cce48c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 23 Aug 2008 12:42:42 +0000
Subject: [PATCH] fix secondary hash code for fixnums

svn: r11399
---
 src/mzscheme/src/hash.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/mzscheme/src/hash.c b/src/mzscheme/src/hash.c
index b43bddc093..f919a5ae35 100644
--- a/src/mzscheme/src/hash.c
+++ b/src/mzscheme/src/hash.c
@@ -1367,16 +1367,15 @@ static long equal_hash_key2(Scheme_Object *o, Hash_Info *hi)
   
   switch(t) {
   case scheme_integer_type:
-    return t;
+    return t - SCHEME_INT_VAL(o);
 #ifdef MZ_USE_SINGLE_FLOATS
   case scheme_float_type:
-    return t;
 #endif
   case scheme_double_type:
     {
       double d;
       int e;
-      d = SCHEME_DBL_VAL(o);
+      d = SCHEME_FLOAT_VAL(o);
       if (MZ_IS_NAN(d)
 	  || MZ_IS_POS_INFINITY(d)
 	  || MZ_IS_NEG_INFINITY(d)) {