~ chicken-core (chicken-5) f8816e4c6e1810f57d52730c77da1a733b42eb06

commit f8816e4c6e1810f57d52730c77da1a733b42eb06
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jul 19 22:30:42 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jul 19 22:30:42 2015 +0200

    fixed incorrect argc-limit check in apply

diff --git a/runtime.c b/runtime.c
index d92b5ab9..514dd005 100644
--- a/runtime.c
+++ b/runtime.c
@@ -5984,7 +5984,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;