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

Fix highlight removal.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-14 14:09:57 -04:00
parent 76d91b4e3d
commit 218fdcceb4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,7 +46,7 @@
(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))
(set! highlights (append (apply append new-highlights) highlights)))
(set! highlights (append new-highlights highlights)))
(define (clear-highlights)
(for ([h (in-list highlights)])