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

places: fix serialization of hash tables as place messages

Browse Source 
I'm not sure why thinsg seemed to work before, but an existing
test fails after recent chages.
This commit is contained in:
Matthew Flatt 2018-10-09 15:51:54 -06:00
parent de753399b6
commit ec837e8eb1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1842,7 +1842,7 @@ DEEP_SST2_L:
IFS_PUSH(nht); IFS_PUSH(nht);
IFS_PUSH(so); IFS_PUSH(so);
IFS_PUSH(hti); IFS_PUSH(hti);
if (SCHEME_INTP(hti)) { if (SCHEME_INTP(hti)) {
Scheme_Object *a[2]; Scheme_Object *a[2];
a[0] = so; a[0] = so;
@ -1907,9 +1907,10 @@ DEEP_HT3:
so = IFS_POP; so = IFS_POP;
nht = IFS_POP; nht = IFS_POP;
if (set_mode) { if (set_mode)
new_so = nht; new_so = nht;
} else
new_so = so;
RETURN; RETURN;
break; break;