From a9504825eabd2d39d2ad54129c4c45d37aa4e027 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 14 Mar 2014 16:29:50 -0400 Subject: [PATCH] Avoid division by 0 when there are no contract samples. --- pkgs/contract-profile/boundary-view.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/contract-profile/boundary-view.rkt b/pkgs/contract-profile/boundary-view.rkt index 62ae396585..e96628dc53 100644 --- a/pkgs/contract-profile/boundary-view.rkt +++ b/pkgs/contract-profile/boundary-view.rkt @@ -151,7 +151,7 @@ (define total-contract-time (max 1e-20 (for/sum ([b (in-list all-boundaries)]) (boundary-time b)))) (define max-self% - (/ (for/fold ([m 0]) ([b (in-list all-boundaries)]) + (/ (for/fold ([m 1e-20]) ([b (in-list all-boundaries)]) (max m (boundary-time b))) total-contract-time))