+ fixed bug in table initialization

2004-03-12 08:01:33 +00:00 · 2004-03-12 08:01:33 +00:00 · 1602ae0be1
parent f4d42e06be
commit 1602ae0be1
1 changed files with 1 additions and 1 deletions
--- 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))))