From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2018 03:49:51 +0000 (-0700)
Subject: Fix equal-hash to return the same value as eq-hash on non-pointers.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0015cb8d1fd4e2a8a51c5d4cd184ab50c4debc17;p=mit-scheme.git

Fix equal-hash to return the same value as eq-hash on non-pointers.
---

diff --git a/src/microcode/utils.c b/src/microcode/utils.c
index c3e8415cd..93c5da906 100644
--- a/src/microcode/utils.c
+++ b/src/microcode/utils.c
@@ -510,9 +510,6 @@ memory_hash (unsigned long length, const void * vp)
 bool
 hashable_object_p (SCHEME_OBJECT object)
 {
-  if (GC_TYPE_NON_POINTER (object))
-    return (true);
-
   switch (OBJECT_TYPE (object))
     {
     case TC_BYTEVECTOR:
@@ -536,10 +533,6 @@ hashable_object_p (SCHEME_OBJECT object)
 uint32_t
 hash_object (SCHEME_OBJECT object)
 {
-  if (GC_TYPE_NON_POINTER (object))
-    return (memory_hash ((sizeof (SCHEME_OBJECT)),
-			 (&object)));
-
   switch (OBJECT_TYPE (object))
     {
     case TC_BYTEVECTOR: