~ 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