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

avoid a compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-27 06:22:24 -06:00
parent 8655a6856e
commit 73a4b1758e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/fun.c
View File

@ -7353,7 +7353,8 @@ extract_cc_markses(int argc, Scheme_Object *argv[])
is_chaperoned = 1;
orig_key = keys[i];
keys[i] = SCHEME_CHAPERONE_VAL(orig_key);
}
} else
orig_key = NULL;
if (SAME_OBJ(chain->key, keys[i])) {
intptr_t pos;
pos = (intptr_t)chain->pos;