~ chicken-core (chicken-5) 3d086dd2257f71917070057adcff715a8fba46b3

commit 3d086dd2257f71917070057adcff715a8fba46b3
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Feb 25 17:01:03 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Feb 25 17:01:03 2016 +1300

    Fix C_call_with_cthulhu
    
    Ph'nglui mglw'nafh Cthulhu R'lyeh wgah'nagl fhtagn.

diff --git a/runtime.c b/runtime.c
index 19018502..7f5aa90d 100644
--- a/runtime.c
+++ b/runtime.c
@@ -12636,13 +12636,12 @@ void C_ccall C_call_with_cthulhu(C_word c, C_word *av)
     k = av[ 1 ],
     proc = av[ 2 ],
     *a = C_alloc(C_SIZEOF_CLOSURE(1)),
-    av2[ 4 ];
-  
-  av2[ 0 ] = C_SCHEME_UNDEFINED;
-  av2[ 1 ] = C_closure(&a, 1, (C_word)termination_continuation); /* k */
-  av2[ 2 ] = proc;
-  av2[ 3 ] = C_SCHEME_END_OF_LIST;
-  C_do_apply(4, av2);
+    av2[ 3 ];
+
+  av2[ 0 ] = C_closure(&a, 1, (C_word)termination_continuation); /* k */
+  av2[ 1 ] = proc;
+  av2[ 2 ] = C_SCHEME_END_OF_LIST;
+  C_do_apply(3, av2);
 }