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

fix wong-sized local array

Browse Source 
svn: r14597
This commit is contained in:
Matthew Flatt 2009-04-24 18:27:12 +00:00
parent 2439b4cb75
commit b741225899
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/stxobj.c
View File

@ -4888,7 +4888,7 @@ Scheme_Object *scheme_stx_module_name(Scheme_Hash_Table *free_id_recur,
and nominal_name is NULL or a free_id=? renamed id. */ and nominal_name is NULL or a free_id=? renamed id. */
{ {
if (SCHEME_STXP(*a)) { if (SCHEME_STXP(*a)) {
Scheme_Object *modname, *names[6]; Scheme_Object *modname, *names[7];
int rib_dep; int rib_dep;
names[0] = NULL; names[0] = NULL;