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

fix place-channel support for eq[v] hash tables

Browse Source 
Bug caught by an existing test.
This commit is contained in:
Matthew Flatt 2015-07-18 20:20:46 -06:00
parent 801a8950bb
commit 1eba8ac2a7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/place.c
View File

@ -2199,8 +2199,10 @@ DEEP_SST2_L:
RETURN; RETURN;
} }
break; break;
case scheme_hash_table_type: case scheme_hash_table_type:
case scheme_hash_tree_type: case scheme_hash_tree_type:
case scheme_eq_hash_tree_type:
case scheme_eqv_hash_tree_type:
if (set_mode) { if (set_mode) {
if (scheme_true == scheme_hash_eq_p(1, &so)) { if (scheme_true == scheme_hash_eq_p(1, &so)) {
nht = scheme_make_immutable_hasheq(0, NULL); nht = scheme_make_immutable_hasheq(0, NULL);