From 1052852fd44b8fc012fa1e6de310e7f343883aac Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Oct 2012 20:47:04 -0600
Subject: [PATCH] avoid compiler warning

---
 src/racket/src/fun.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c
index bde5af79ef..be759d02e9 100644
--- a/src/racket/src/fun.c
+++ b/src/racket/src/fun.c
@@ -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;