From 024bb8a718b2a34c40843c571add3d2bcf60474d Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Fri, 9 Mar 2012 12:40:22 -0700
Subject: [PATCH] Eliminate compiler warnings

---
 src/racket/src/module.c  |  2 +-
 src/racket/src/portfun.c | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index 0f725c27dc..65a5a6bcef 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -6079,7 +6079,7 @@ static Scheme_Object *strip_lexical_context_k()
 
 static Scheme_Object *strip_lexical_context(Scheme_Object *stx)
 {
-  Scheme_Object *v;
+  Scheme_Object *v = NULL;
 
 #ifdef DO_STACK_CHECK
 # include "mzstkchk.h"
diff --git a/src/racket/src/portfun.c b/src/racket/src/portfun.c
index f8596fd5c6..5dfb050dba 100644
--- a/src/racket/src/portfun.c
+++ b/src/racket/src/portfun.c
@@ -4197,7 +4197,7 @@ static intptr_t get_number(Scheme_Object *port, intptr_t pos)
 static char *get_bytes(Scheme_Object *port, intptr_t pos, intptr_t len)
 {
   char *s;
-  intptr_t got, orig;
+  intptr_t orig;
 
   s = scheme_malloc_atomic(len + 1);
   s[len] = 0;
@@ -4205,10 +4205,10 @@ static char *get_bytes(Scheme_Object *port, intptr_t pos, intptr_t len)
   orig = scheme_set_file_position(port, -1);
   scheme_set_file_position(port, pos);
 
-  got = scheme_get_byte_string("default-load-handler",
-                               port,
-                               (char *)s, 0, len,
-                               0, 0, scheme_make_integer(0));
+  scheme_get_byte_string("default-load-handler",
+                         port,
+                         (char *)s, 0, len,
+                         0, 0, scheme_make_integer(0));
 
   (void)scheme_set_file_position(port, orig);