From 47f0a365539ec091c3fbf7135446f36f262cc6f8 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 15 Jul 2011 13:43:12 -0400 Subject: [PATCH] Fix when there are no reports in a file. --- collects/typed-scheme/optimizer/tool/tool.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/optimizer/tool/tool.rkt b/collects/typed-scheme/optimizer/tool/tool.rkt index 5eb6f65192..2647346faf 100644 --- a/collects/typed-scheme/optimizer/tool/tool.rkt +++ b/collects/typed-scheme/optimizer/tool/tool.rkt @@ -42,7 +42,8 @@ (define/public (add-highlights) (define report (generate-report this)) - (define max-badness (apply max (map report-entry-badness report))) + (define max-badness + (apply max (cons 0 (map report-entry-badness report)))) (unless (= max-badness 0) ; no missed opts, color table code would error (set! color-table (make-color-table max-badness))) (define new-highlights (map highlight-entry report))