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])) {