scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ fixed bug in table initialization

This commit is contained in:
Eric Knauel 2004-03-12 08:01:33 +00:00
parent f4d42e06be
commit 1602ae0be1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s48/profile/profile.scm
View File

@ -23,7 +23,7 @@
(cons (+ 1 (car count.time)) (cons (+ 1 (car count.time))
(+ run-time (cdr count.time)))))) (+ run-time (cdr count.time))))))
(else (else
(table-set! *profile-table* name (cons name run-time))))) (table-set! *profile-table* name (cons 0 run-time)))))
(define (hundredths n) (define (hundredths n)
(let ((n (round (quotient n 10)))) (let ((n (round (quotient n 10))))