suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix case-lambda name bug

Browse Source 
svn: r2176
This commit is contained in:
Matthew Flatt 2006-02-08 19:24:38 +00:00
parent 2dcb1412b5
commit 6f6df78f85
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/syntax.c
View File

@ -1623,7 +1623,7 @@ static Scheme_Object *case_lambda_jit(Scheme_Object *expr)
memcpy(seqout, seqin, size); memcpy(seqout, seqin, size);
name = seqin->name; name = seqin->name;
if (SCHEME_BOXP(name)) if (name && SCHEME_BOXP(name))
name = SCHEME_BOX_VAL(name); name = SCHEME_BOX_VAL(name);
for (i = 0; i < cnt; i++) { for (i = 0; i < cnt; i++) {