From 0015cb8d1fd4e2a8a51c5d4cd184ab50c4debc17 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 May 2018 20:49:51 -0700
Subject: [PATCH] Fix equal-hash to return the same value as eq-hash on
 non-pointers.

---
 src/microcode/utils.c | 7 -------
 1 file changed, 7 deletions(-)

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:
-- 
2.25.1