From 352284953ba629f43d87752abb817aa65787d963 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 19 Dec 2012 09:42:24 -0800 Subject: [PATCH] added 1e-10 floor to prevent div-by-zero original commit: d54f51ab799849975ce2324b152bddf4191347d3 --- collects/profile/render-graphviz.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/profile/render-graphviz.rkt b/collects/profile/render-graphviz.rkt index 1b047c6..2a09359 100644 --- 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)])