~ chicken-core (chicken-5) 79fa43ed4e01b28efb286c4b69d09f74c14b78b4


commit 79fa43ed4e01b28efb286c4b69d09f74c14b78b4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 17 12:05:55 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 17 12:05:55 2015 +0200

    C_values: another off-by-one error while moving args in av

diff --git a/runtime.c b/runtime.c
index c8d0769b..abf50a2d 100644
--- a/runtime.c
+++ b/runtime.c
@@ -6073,7 +6073,7 @@ void C_ccall C_values(C_word c, C_word *av)
   /* Check continuation whether it receives multiple values: */
   if(C_block_item(k, 0) == (C_word)values_continuation) {
     av[ 0 ] = k;                /* reuse av */
-    C_memmove(av + 2, av + 1, (c - 1) * sizeof(C_word));
+    C_memmove(av + 1, av + 2, (c - 1) * sizeof(C_word));
     C_do_apply(c - 1, av);
   }
   
Trap