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

fix custodian-managed-list for weakly held objects

Browse Source
This commit is contained in:
Matthew Flatt 2015-04-18 07:03:35 +01:00
parent 5e02c55dd9
commit 11939df0f2
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/src/racket/src/thread.c
View File

@ -1626,16 +1626,18 @@ static Scheme_Object *custodian_to_list(int argc, Scheme_Object *argv[])
for (i = m->count, j = 0; i--; ) {
if (m->boxes[i]) {
o = xCUSTODIAN_FAM(m->boxes[i]);
type = SCHEME_TYPE(o);
ex = extractors[type];
if (ex) {
o = ex(o);
}
if (o) {
hold[j] = o;
j++;
type = SCHEME_TYPE(o);
ex = extractors[type];
if (ex) {
o = ex(o);
}
if (o) {
hold[j] = o;
j++;
}
}
}
}