~ 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