TR for clause specialization: More detailed message.

original commit: 456f32b77f10f807a31388fae951fa66755fd9b4
2013-10-08 16:14:23 -04:00 · 2013-10-08 16:14:23 -04:00 · 5b36f34fe4
commit 5b36f34fe4
parent e1c1f270a5
1 changed files with 7 additions and 1 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/sequence.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/sequence.rkt
@ -27,7 +27,13 @@
  (typed-expr (disjoin Vector? HeterogeneousVector?)))

 (define-syntax-rule (log-seq-opt opt-label stx)
-  (log-optimization opt-label "Sequence type specialization." stx))
+  (log-optimization
+   opt-label
+   (format
+    "~a\n~a~a~a"
+    "Sequence type specialization."
+    "(You may get better performance by using `" opt-label "' directly.)")
+   stx))

 (define-syntax-class make-sequence
  (pattern op:id