From a9b46a0a80a92d40e516febec11733a14ee05783 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 7 Sep 2011 17:05:42 -0400 Subject: [PATCH] Fix Performance Report message in the absence of irritants. original commit: bb62ca4c2b6a933dc2c465e7420b50b90e1d30cc --- collects/typed-racket/optimizer/float.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/typed-racket/optimizer/float.rkt b/collects/typed-racket/optimizer/float.rkt index b6620a22..66022808 100644 --- a/collects/typed-racket/optimizer/float.rkt +++ b/collects/typed-racket/optimizer/float.rkt @@ -79,7 +79,11 @@ (define (log-float-real-missed-opt stx irritants) (log-missed-optimization "all args float-arg-expr, result not Float" - "This expression has a Real type. It would be better optimized if it had a Float type. To fix this, change the highlighted expression(s) to have Float type(s)." + (string-append + "This expression has a Real type. It would be better optimized if it had a Float type." + (if (null? irritants) + "" + "To fix this, change the highlighted expression(s) to have Float type(s).")) stx irritants)) (define float-opt-msg "Float arithmetic specialization.")