suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix equal hashing on symbols

Browse Source 
svn: r1738
This commit is contained in:
Matthew Flatt 2005-12-31 21:05:35 +00:00
parent dd75f93aee
commit a1d1006ab1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/hash.c
View File

@ -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];