~ 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