fix ephemeron bug in non-3m

svn: r4239
This commit is contained in:
Matthew Flatt 2006-09-05 06:58:19 +00:00
parent 4c4c74eb50
commit 1ec7b50d1f

View File

@ -1842,7 +1842,7 @@ static void set_ephemerons(Scheme_Ephemeron *ae, Scheme_Ephemeron *be)
if (be) {
Scheme_Ephemeron *e;
for (e = be; e->next; e = e->next) { }
be->next = ae;
e->next = ae;
ae = be;
}