another futures bug fix

This commit is contained in:
Matthew Flatt 2011-12-02 16:47:59 -07:00
parent 7ddbc95b51
commit dd5d1c9046

View File

@ -162,6 +162,10 @@ static Scheme_Object *_scheme_tail_apply_from_native_fixup_args(Scheme_Object *r
base[already + i] = argv[i];
}
/* In futures mode, it's important that the argument array matches
runstack: */
MZ_RUNSTACK = base;
return ts__scheme_tail_apply_from_native(rator, argc + already, base);
}