From 1602ae0be15fcb98083338f90185da2f6317b9d5 Mon Sep 17 00:00:00 2001 From: Eric Knauel Date: Fri, 12 Mar 2004 08:01:33 +0000 Subject: [PATCH] + fixed bug in table initialization --- s48/profile/profile.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s48/profile/profile.scm b/s48/profile/profile.scm index 49548c1..6aa23f7 100644 --- a/s48/profile/profile.scm +++ b/s48/profile/profile.scm @@ -23,7 +23,7 @@ (cons (+ 1 (car count.time)) (+ run-time (cdr count.time)))))) (else - (table-set! *profile-table* name (cons name run-time))))) + (table-set! *profile-table* name (cons 0 run-time))))) (define (hundredths n) (let ((n (round (quotient n 10))))