Use the right version of the log to determine misses.

This commit is contained in:
Vincent St-Amour 2012-09-12 17:58:15 -04:00
parent e02333a3c8
commit 28d4eb4d22

View File

@ -234,17 +234,17 @@
;; Non-recursive function -> macro
"Consider turning this function into a macro to force inlining."]))
(if (counts-as-a-missed-opt? log)
(if (counts-as-a-missed-opt? pruned-log)
(missed-opt-log-entry
kind
(format "Missed Inlining ~a\n~a"
(format-aggregation-string log) recommendation)
(format-aggregation-string pruned-log) recommendation)
stx located-stx pos provenance
'() '()
(group-badness log))
(group-badness pruned-log))
(opt-log-entry
kind
(format "Inlining ~a" (format-aggregation-string log))
(format "Inlining ~a" (format-aggregation-string pruned-log))
stx located-stx pos provenance))])))
(define (group-badness group)