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

make some private methods actually be private methods (instead of fields)

Browse Source
This commit is contained in:
Robby Findler 2012-03-09 08:09:17 -06:00
parent c46cdf63bc
commit a4b721ef3a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/typed-racket/optimizer/tool/tool.rkt
View File

@ -36,7 +36,7 @@
(define highlights '())
(define color-table #f)
(define (highlight-entry l)
(define/private (highlight-entry l)
(match l
[(report-entry subs start end badness)
(let ([color (if (= badness 0)
@ -53,10 +53,15 @@
(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))
(set! highlights (append new-highlights highlights)))
(define new-highlights
(let loop ([report report])
(cond
[(null? report) highlights]
[else (cons (highlight-entry (car report))
(loop (cdr reports)))])))
(set! highlights new-highlights))
(define (clear-highlights)
(define/private (clear-highlights)
(for ([h (in-list highlights)])
(match h
[`(,start ,end . ,rest )