From 5b36f34fe409a56db320e53c515bb048d18d15b7 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 8 Oct 2013 16:14:23 -0400 Subject: [PATCH] TR for clause specialization: More detailed message. original commit: 456f32b77f10f807a31388fae951fa66755fd9b4 --- .../typed-racket-lib/typed-racket/optimizer/sequence.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git 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 index f578a062..5801a763 100644 --- 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