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

Fix Performance Report message in the absence of irritants.

Browse Source 
original commit: bb62ca4c2b6a933dc2c465e7420b50b90e1d30cc
This commit is contained in:
Vincent St-Amour 2011-09-07 17:05:42 -04:00
parent 386f74eb98
commit a9b46a0a80
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-racket/optimizer/float.rkt
View File

@ -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.")