Make sure badness is non-zero any time we report a missed opt.

Also, fix irritant handling.
2011-10-11 15:21:26 -04:00 · 2011-10-11 15:21:26 -04:00 · 727420ee17
commit 727420ee17
parent 24cb6fa0cd
1 changed files with 2 additions and 3 deletions
--- a/collects/typed-racket/optimizer/tool/mzc.rkt
+++ b/collects/typed-racket/optimizer/tool/mzc.rkt
@ -133,9 +133,8 @@
              kind
              (format "Missed Inlining ~a" aggregation-string)
              stx located-stx pos
-              (missed-opt-log-entry-irritants        head)
-              (missed-opt-log-entry-merged-irritants head)
-              n-failures) ; badness
+              '() '()
+              (+ n-failures (- n-out-of-fuels n-successes))) ; badness
             (opt-log-entry
              kind
              (format "Inlining ~a" aggregation-string)