diff --git a/collects/tests/racket/basic.rktl b/collects/tests/racket/basic.rktl index 11a7556e11..630e3c5f55 100644 --- a/collects/tests/racket/basic.rktl +++ b/collects/tests/racket/basic.rktl @@ -2504,6 +2504,7 @@ (test (equal-hash-code ht) values (equal-hash-code ht2)) (test (equal-hash-code wht) values (equal-hash-code wht2)) (test (equal-secondary-hash-code ht) values (equal-secondary-hash-code ht2)) + (test (equal-secondary-hash-code wht) values (equal-secondary-hash-code wht2)) (let ([ht (for/hash ([i (in-list l)]) (values (a i) (a (a i))))] diff --git a/src/racket/src/hash.c b/src/racket/src/hash.c index 6e848aedfc..1f43fbbbae 100644 --- a/src/racket/src/hash.c +++ b/src/racket/src/hash.c @@ -1759,7 +1759,7 @@ static uintptr_t equal_hash_key2(Scheme_Object *o, Hash_Info *hi) if (key) { k += equal_hash_key2((Scheme_Object *)bucket->val, hi); k += equal_hash_key2((Scheme_Object *)key, hi); - old_depth = hi->depth; + hi->depth = old_depth; } } }