From 6f6df78f85a7bd0f01bb2119a80061fdfab35903 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 8 Feb 2006 19:24:38 +0000
Subject: [PATCH] fix case-lambda name bug

svn: r2176
---
 src/mzscheme/src/syntax.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 36e4c0f8d2..13e1a42830 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -1623,7 +1623,7 @@ static Scheme_Object *case_lambda_jit(Scheme_Object *expr)
     memcpy(seqout, seqin, size);
 
     name = seqin->name;
-    if (SCHEME_BOXP(name))
+    if (name && SCHEME_BOXP(name))
       name = SCHEME_BOX_VAL(name);
 
     for (i = 0; i < cnt; i++) {