~ chicken-core (chicken-5) 5322e826e2a018b9c261d10085c826ad75b9c944
commit 5322e826e2a018b9c261d10085c826ad75b9c944 Author: Peter Bex <peter@more-magic.net> AuthorDate: Sat Aug 22 18:17:00 2015 +0200 Commit: Peter Bex <peter@more-magic.net> CommitDate: Sat Aug 22 19:37:27 2015 +0200 fixed incorrect argc-limit check in apply diff --git a/runtime.c b/runtime.c index a829aa98..cd80170d 100644 --- a/runtime.c +++ b/runtime.c @@ -7162,7 +7162,7 @@ void C_ccall C_apply(C_word c, C_word *av) for(skip = x; !C_immediatep(skip) && C_block_header(skip) == C_PAIR_TAG; skip = C_u_i_cdr(skip)) { x = C_u_i_car(skip); - if(C_temporary_stack < C_temporary_stack_limit) + if(ptr >= C_temporary_stack_bottom) barf(C_TOO_MANY_PARAMETERS_ERROR, "apply"); *(ptr++) = x;Trap