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

refine fix of equal? on immutable hash tables and add a test

Browse Source 
svn: r10707
This commit is contained in:
Matthew Flatt 2008-07-10 13:50:56 +00:00
parent 5c183baf6e
commit de3b46aa5b
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/basic.ss
View File

@ -2147,6 +2147,9 @@
(test 2 hash-ref im-t "hello" (lambda () 'none)) (test 2 hash-ref im-t "hello" (lambda () 'none))
(test #f hash-eq? im-t) (test #f hash-eq? im-t)
(test #f equal? #hash((x . 0)) #hash((y . 0)))
(test #t equal? #hash((y . 0)) #hash((y . 0)))
(err/rt-test (hash-set! im-t 1 2)) (err/rt-test (hash-set! im-t 1 2))
(err/rt-test (hash-remove! im-t 1)) (err/rt-test (hash-remove! im-t 1))
(err/rt-test (make-immutable-hasheq '(1))) (err/rt-test (make-immutable-hasheq '(1)))

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--; ) { for (i = t1->count; i--; ) {
scheme_hash_tree_index(t1, i, &k, &v); scheme_hash_tree_index(t1, i, &k, &v);
v2 = scheme_hash_tree_get(t2, k); v2 = scheme_hash_tree_get(t2, k);
if (!v || !v2) if (!v2)
return 0; return 0;
if (!scheme_recur_equal(v, v2, eql)) if (!scheme_recur_equal(v, v2, eql))
return 0; return 0;