diff --git a/collects/typed-racket/optimizer/tool/mzc.rkt b/collects/typed-racket/optimizer/tool/mzc.rkt index 2361c17860..3568a3c8f1 100644 --- a/collects/typed-racket/optimizer/tool/mzc.rkt +++ b/collects/typed-racket/optimizer/tool/mzc.rkt @@ -37,7 +37,7 @@ (define inlining-event-regexp ;; Last bit is `generated?'. We don't care about that. ;; The middle elements of the vector are numbers of #f. - "#\\(([^ ]+) # ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)") + "involving: #\\(([^ ]+) # ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)") (define (inlining-event->forged-stx l) (match (regexp-match inlining-event-regexp l) diff --git a/src/racket/src/optimize.c b/src/racket/src/optimize.c index 62ac15245d..69f5358fb9 100644 --- a/src/racket/src/optimize.c +++ b/src/racket/src/optimize.c @@ -1092,7 +1092,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a scheme_log(NULL, SCHEME_LOG_WARNING, 0, - "mzc optimizer: inlining: %s%s", + "mzc optimizer: inlining: involving: %s%s", scheme_write_to_string(data->name ? data->name : scheme_false, NULL), scheme_optimize_context_to_string(info->context)); le = apply_inlined(le, data, sub_info, argc, app, app2, app3, context, @@ -1105,7 +1105,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a scheme_log(NULL, SCHEME_LOG_WARNING, 0, - "mzc optimizer: no inlining: %s%s", + "mzc optimizer: no inlining: involving: %s%s", scheme_write_to_string(data->name ? data->name : scheme_false, NULL), scheme_optimize_context_to_string(info->context)); } @@ -1116,7 +1116,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a scheme_log(NULL, SCHEME_LOG_WARNING, 0, - "mzc optimizer: no inlining, out of fuel: %s%s", + "mzc optimizer: no inlining, out of fuel: involving: %s%s", scheme_write_to_string(data->name ? data->name : scheme_false, NULL), scheme_optimize_context_to_string(info->context)); }