fix allocation bug

This commit is contained in:
Matthew Flatt 2012-05-06 19:18:30 -06:00
parent 967cbaadf7
commit a0f4d7e44a

View File

@ -7304,7 +7304,7 @@ static Scheme_Object *package_require_data(Scheme_Object *base_modidx,
{ {
void **vals; void **vals;
vals = MALLOC_N(void*, 9); vals = MALLOC_N(void*, 10);
vals[0] = NULL; /* this slot is available */ vals[0] = NULL; /* this slot is available */
vals[1] = base_modidx; vals[1] = base_modidx;
vals[2] = env; vals[2] = env;