From 3833a22f75c200c183987c1f54a3612a3184d64d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 25 Nov 2018 08:06:28 -0700 Subject: [PATCH] setup: leave cm trace handler alone in places When `--vv` is not provided, leave the default `compiler/cm` trace handler in place so that logging works as intended. --- racket/collects/setup/parallel-build.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/racket/collects/setup/parallel-build.rkt b/racket/collects/setup/parallel-build.rkt index 89d60ed4ee..31055706c8 100644 --- a/racket/collects/setup/parallel-build.rkt +++ b/racket/collects/setup/parallel-build.rkt @@ -319,10 +319,9 @@ (format-error x #:long? #f #:to-string? #t))))]) (parameterize ([parallel-lock-client lock-client] [compile-context-preservation-enabled (member 'disable-inlining options )] - [manager-trace-handler - (lambda (p) - (when (member 'very-verbose options) - (printf " ~a\n" p)))] + [manager-trace-handler (if (member 'very-verbose options) + (lambda (p) (printf " ~a\n" p)) + (manager-trace-handler))] [current-namespace (make-base-empty-namespace)] [current-directory (if (memq 'set-directory options) dir