suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r14647

Browse Source
This commit is contained in:
Eli Barzilay 2009-04-29 07:13:55 +00:00
parent 87c9aba9e0
commit 8785850a3c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profile/render-text.ss
View File

@ -49,8 +49,8 @@
[(pair? x) (loop (car x)) (loop (cdr x))]
[else (display x)]))
(newline))
(define total-time (profile-total-time profile))
(define cpu-time (profile-cpu-time profile))
(define total-time (profile-total-time profile)) ;!! are these two
(define cpu-time (profile-cpu-time profile)) ;!! swapped?
(define sample-number (profile-sample-number profile))
(define granularity (if (zero? sample-number) 0
(/ total-time sample-number)))