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

Avoid division by 0 when there are no contract samples.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-03-14 16:29:50 -04:00
parent a662f72c9e
commit a9504825ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/contract-profile/boundary-view.rkt
View File

@ -151,7 +151,7 @@
(define total-contract-time (define total-contract-time
(max 1e-20 (for/sum ([b (in-list all-boundaries)]) (boundary-time b)))) (max 1e-20 (for/sum ([b (in-list all-boundaries)]) (boundary-time b))))
(define max-self% (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))) (max m (boundary-time b)))
total-contract-time)) total-contract-time))