* hash.c (ll_hash): Added a break in the case that handles

pointer hashing of identity-equal objects. Without this, if the
pointer size is not 4 or 8, we fall through to the next case.

1 files changed, 1 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 7dbabacd..8ee7a072 100644
--- a/hash.c
+++ b/hash.c
@@ -108,6 +108,7 @@ static cnum ll_hash(val obj)
     case 8: default:
       return (((cnum) obj) & NUM_MAX) >> 5;
     }
+    break;
   case FUN:
     return ((cnum) obj->f.f.interp_fun + ll_hash(obj->f.env)) & NUM_MAX;
   case VEC: