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

added 1e-10 floor to prevent div-by-zero

Browse Source 
original commit: d54f51ab799849975ce2324b152bddf4191347d3
This commit is contained in:
John Clements 2012-12-19 09:42:24 -08:00
parent abf6fff5ea
commit 352284953b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/profile/render-graphviz.rkt
View File

@ -10,7 +10,7 @@
(define *-node (profile-*-node profile))
(define hidden (get-hidden profile hide-self% hide-subs%))
(define nodes (remq* hidden (profile-nodes profile)))
(define total-time (profile-total-time profile))
(define total-time (max 1e-20 (profile-total-time profile)))
(define node->
(let ([t (make-hasheq)])
(for ([node (in-list nodes)] [idx (in-naturals 1)])