From a1d1006ab1a47d956c82ccf1b1e406617e2aa2ad Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 31 Dec 2005 21:05:35 +0000
Subject: [PATCH] fix equal hashing on symbols

svn: r1738
---
 src/mzscheme/src/hash.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/hash.c b/src/mzscheme/src/hash.c
index 07face7cb6..86bb968663 100644
--- a/src/mzscheme/src/hash.c
+++ b/src/mzscheme/src/hash.c
@@ -1106,7 +1106,7 @@ static long equal_hash_key(Scheme_Object *o, long k)
       Scheme_Symbol *s = (Scheme_Symbol *)o;
       if (!(MZ_OPT_HASH_KEY(&s->iso) & 0x1)) {
 	/* Interned. Make key depend only on the content. */
-	if (!MZ_OPT_HASH_KEY(&s->iso) & 0xFFFC) {
+	if (!(MZ_OPT_HASH_KEY(&s->iso) & 0xFFFC)) {
 	  int i, h = 0;
 	  for (i = s->len; i--; ) {
 	    h += (h << 5) + h + s->s[i];