~ chicken-core (chicken-5) e4e2afbf37ea8c22a69d51279213aa6d5f2d4f68

commit e4e2afbf37ea8c22a69d51279213aa6d5f2d4f68
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 17 12:04:00 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 17 12:04:00 2015 +0200

    fixedx off-by-one in C_context_switch

diff --git a/runtime.c b/runtime.c
index 3dc24c9e..d5760e9a 100644
--- a/runtime.c
+++ b/runtime.c
@@ -7939,13 +7939,12 @@ void C_ccall C_context_switch(C_word c, C_word *av)
 {
   C_word
     /* closure = av[ 0 ] */
-    k = av[ 1 ],
     state = av[ 2 ],
     n = C_header_size(state) - 1,
     adrs = C_block_item(state, 0);
   C_proc tp = (C_proc)C_block_item(adrs,0);
 
-  tp(n, (C_word *)state + 1);
+  tp(n, (C_word *)state + 2);
 }