~ chicken-core (chicken-5) 539d3ad975f0b603c4a4d0d77d517296303aa5f2

commit 539d3ad975f0b603c4a4d0d77d517296303aa5f2
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Feb 25 17:03:57 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Feb 25 17:03:57 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 b1e99e21..8e89ea37 100644
--- a/runtime.c
+++ b/runtime.c
@@ -9035,13 +9035,12 @@ void C_ccall C_call_with_cthulhu(C_word c, C_word *av)
     k = av[ 1 ],
     proc = av[ 2 ],
     *a = C_alloc(3),
-    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);
 }