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

fix CGC ephemeron bug

Browse Source 
Merge to 5.1.1
This commit is contained in:
Matthew Flatt 2011-04-25 15:49:00 -06:00
parent e999e0666c
commit 5ae4b00168
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3269,7 +3269,7 @@ Scheme_Object *scheme_make_ephemeron(Scheme_Object *key, Scheme_Object *val)
Scheme_Ephemeron *e;
int can_gc = 1;
if (SCHEME_INTP(val) || !GC_base(val))
if (SCHEME_INTP(key) || !GC_base(key))
can_gc = 0;
if (can_gc) {
@ -3278,12 +3278,12 @@ Scheme_Object *scheme_make_ephemeron(Scheme_Object *key, Scheme_Object *val)
e = (Scheme_Ephemeron *)scheme_malloc(sizeof(Scheme_Ephemeron));
}
e->so.type = scheme_ephemeron_type;
e->key = key;
e->val = val;
if (can_gc) {
e->next = ephemerons;
ephemerons = e;
}
e->key = key;
e->val = val;
return (Scheme_Object *)e;
#endif