From 20179cf0a770bc41012457950efea6c50bfb2a41 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 26 May 2012 19:44:41 -0600
Subject: [PATCH] avoid compiler warning

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

diff --git a/src/racket/src/error.c b/src/racket/src/error.c
index 7114938f2e..8779ae97b1 100644
--- a/src/racket/src/error.c
+++ b/src/racket/src/error.c
@@ -2623,6 +2623,7 @@ static Scheme_Object *do_raise_type_error(const char *name, int argc, Scheme_Obj
   case 0: wrong = scheme_wrong_type; break;
   case 1: wrong = scheme_wrong_contract; break;
   case 2: wrong = scheme_wrong_contract; negate = 1; break;
+  default: wrong = NULL; break;
   }
 
   if (argc == 3) {