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

2012-12-19 09:42:24 -08:00 · 2012-12-19 09:42:24 -08:00 · d54f51ab79
commit d54f51ab79
parent 938959611e
1 changed files with 1 additions and 1 deletions
--- a/collects/profile/render-graphviz.rkt
+++ b/collects/profile/render-graphviz.rkt
@ -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)])