Have separate checkbox for hidden costs.

2012-11-25 18:37:10 -05:00 · 2012-11-25 18:37:10 -05:00 · 928ea23a12
commit 928ea23a12
parent 8ffbaabfa6
2 changed files with 4 additions and 1 deletions
--- a/collects/typed-racket/optimizer/tool/hidden-costs.rkt
+++ b/collects/typed-racket/optimizer/tool/hidden-costs.rkt
@ -40,7 +40,7 @@
               (list (missed-opt-report-entry
                      (log-entry-located-stx info-entry)
                      message
-                      'typed-racket
+                      'hidden-cost
                      badness
                      '())) ; no irritants to highlight
               start end
--- a/collects/typed-racket/optimizer/tool/tool.rkt
+++ b/collects/typed-racket/optimizer/tool/tool.rkt
@ -21,6 +21,9 @@
                    [_ #f]))
    ("Report inlining optimizations?" .
     ,(match-lambda [(sub-report-entry s m 'mzc) #t]
+                    [_ #f]))
+    ("Report hidden costs?" .
+     ,(match-lambda [(sub-report-entry s m 'hidden-cost) #t]
                    [_ #f]))))

 (define (copy-definitions definitions)