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

#f when comparing functional hash tables when a key is not found in the other table

Browse Source 
svn: r10703
This commit is contained in:
Eli Barzilay 2008-07-10 06:41:26 +00:00
parent 7d2dac6fd3
commit f0276ab329
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

@ -2388,7 +2388,7 @@ int scheme_hash_tree_equal_rec(Scheme_Hash_Tree *t1, Scheme_Hash_Tree *t2, void
for (i = t1->count; i--; ) {
scheme_hash_tree_index(t1, i, &k, &v);
v2 = scheme_hash_tree_get(t2, k);
if (!v)
if (!v || !v2)
return 0;
if (!scheme_recur_equal(v, v2, eql))
return 0;