~ chicken-core (chicken-5) 71eca8c921eb317db42fbf1cdcf772b0aecaaec3


commit 71eca8c921eb317db42fbf1cdcf772b0aecaaec3
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 18:16:43 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:26 2015 +0200

    C_save_and_reclaim clobbered count

diff --git a/runtime.c b/runtime.c
index 5f535934..c28dcf74 100644
--- a/runtime.c
+++ b/runtime.c
@@ -3117,10 +3117,12 @@ void C_save_and_reclaim(void *trampoline, int n, C_word *av)
 void C_save_and_reclaim_args(void *trampoline, int n, ...)
 {
   va_list v;
+  int i;
   
   va_start(v, n);
 
-  while(n--) C_save(va_arg(v, C_word));
+  for(i = 0; i < n; ++i)
+    C_save(va_arg(v, C_word));
 
   va_end(v);
   C_reclaim(trampoline, n);
Trap