From 7d8c520480abf389ebe88cfcbe6bc97e31714c53 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Wed, 1 Dec 2010 15:18:13 -0700
Subject: [PATCH] Remove unused variable

---
 src/racket/src/sema.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/racket/src/sema.c b/src/racket/src/sema.c
index 4ed250633a..c4dedc33c0 100644
--- a/src/racket/src/sema.c
+++ b/src/racket/src/sema.c
@@ -226,7 +226,6 @@ Scheme_Object *scheme_make_sema(long v)
 static Scheme_Object *make_sema(int n, Scheme_Object **p)
 {
   long v;
-  Scheme_Object *s;
 
   if (n) {
     if (!SCHEME_INTP(p[0])) {