From 0097d59635c2c3d7488f6d142fbd86f8e4885684 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 Jan 2013 06:30:45 -0700
Subject: [PATCH] avoid compiler warning

---
 src/racket/src/error.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/error.c b/src/racket/src/error.c
index 5eb7919113..e9ba62f123 100644
--- a/src/racket/src/error.c
+++ b/src/racket/src/error.c
@@ -464,7 +464,7 @@ static intptr_t sch_vsprintf(char *s, intptr_t maxlen, const char *msg, va_list
 	  {
 	    int en, he, none = 0;
 	    char *es;
-            Scheme_Object *err_kind;
+            Scheme_Object *err_kind = NULL;
             
 	    if (type == 'm') {
               none = !ints[ip++];