avoid compiler warning

This commit is contained in:
Matthew Flatt 2012-10-17 20:47:04 -06:00
parent 8827f4b6b5
commit 1052852fd4

View File

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