~ chicken-core (chicken-5) 48a8d29cc7eaf0ce773c0399e9bcf90b4cb14fd8

commit 48a8d29cc7eaf0ce773c0399e9bcf90b4cb14fd8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 21 03:49:29 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Oct 21 03:49:29 2010 -0400

    timing vector too large (thanks to Kon Lovett)

diff --git a/runtime.c b/runtime.c
index 3ea009ba..33bed5cd 100644
--- a/runtime.c
+++ b/runtime.c
@@ -3930,13 +3930,13 @@ void C_ccall C_stop_timer(C_word c, C_word closure, C_word k)
 {
   double t0 = C_cpu_milliseconds() - timer_start_ms;
   C_word 
-    ab[ WORDS_PER_FLONUM * 2 + 7 ], /* 2 flonums, 1 vector of 6 elements */
+    ab[ WORDS_PER_FLONUM * 2 + 6 ], /* 2 flonums, 1 vector of 5 elements */
     *a = ab,
     elapsed = C_flonum(&a, t0 / 1000.0),
     gc_time = C_flonum(&a, gc_ms / 1000.0),
     info;
 
-  info = C_vector(&a, 6, elapsed, gc_time, C_fix(mutation_count), C_fix(gc_count_1_total), 
+  info = C_vector(&a, 5, elapsed, gc_time, C_fix(mutation_count), C_fix(gc_count_1_total), 
 		  C_fix(gc_count_2));
   C_kontinue(k, info);
 }