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

fix eqvhash table for characters

Browse Source 
svn: r14046
This commit is contained in:
Matthew Flatt 2009-03-11 02:25:10 +00:00
parent 46277c7fd3
commit 5b267aaaad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1311,7 +1311,7 @@ long scheme_equal_hash_key2(Scheme_Object *o)
long scheme_eqv_hash_key(Scheme_Object *o) long scheme_eqv_hash_key(Scheme_Object *o)
{ {
if (!SCHEME_INTP(o) && SCHEME_NUMBERP(o)) if (!SCHEME_INTP(o) && (SCHEME_NUMBERP(o) || SCHEME_CHARP(o)))
return scheme_equal_hash_key(o); return scheme_equal_hash_key(o);
else else
return (PTR_TO_LONG(o) >> 2); return (PTR_TO_LONG(o) >> 2);
@ -1319,7 +1319,7 @@ long scheme_eqv_hash_key(Scheme_Object *o)
long scheme_eqv_hash_key2(Scheme_Object *o) long scheme_eqv_hash_key2(Scheme_Object *o)
{ {
if (!SCHEME_INTP(o) && SCHEME_NUMBERP(o)) if (!SCHEME_INTP(o) && (SCHEME_NUMBERP(o) || SCHEME_CHARP(o)))
return scheme_equal_hash_key2(o); return scheme_equal_hash_key2(o);
else else
return (PTR_TO_LONG(o) >> 3); return (PTR_TO_LONG(o) >> 3);