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

Fix when there are no reports in a file.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-15 13:43:12 -04:00
parent 5d4d9f2636
commit 47f0a36553
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/optimizer/tool/tool.rkt
View File

@ -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))