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

avoid compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2012-10-17 20:47:04 -06:00
parent 8827f4b6b5
commit 1052852fd4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6253,6 +6253,7 @@ static Scheme_Object **chaperone_do_control(const char *name, int mode,
proc = init_guard; proc = init_guard;
if (SAME_OBJ(NULL, scheme_values_func)) if (SAME_OBJ(NULL, scheme_values_func))
proc = NULL; proc = NULL;
px = NULL;
} else { } else {
px = (Scheme_Chaperone *)obj; px = (Scheme_Chaperone *)obj;
obj = px->prev; obj = px->prev;