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 c3e8415cd8791c3cd597d0d8f9ea7629d6530946..93c5da9063af94a2de8944bb466256a4a56747d6 100644 (file)
--- 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: