From a1ba579666adb50dee6221c7d7cc07a49e2a5254 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 27 Mar 2016 16:21:41 -0500 Subject: [PATCH] avoid defeating an optimization in the loggging code during `raco make` --- compiler-lib/compiler/commands/make.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler-lib/compiler/commands/make.rkt b/compiler-lib/compiler/commands/make.rkt index 3bc0ec7ed8..f9b7f3a611 100644 --- a/compiler-lib/compiler/commands/make.rkt +++ b/compiler-lib/compiler/commands/make.rkt @@ -70,9 +70,9 @@ [did-one? #f]) (parameterize ([current-namespace n] [manager-trace-handler - (lambda (p) - (when (very-verbose) - (printf " ~a\n" p)))] + (if (very-verbose) + (λ (p) (printf " ~a\n" p)) + (manager-trace-handler))] [manager-compile-notify-handler (lambda (p) (set! did-one? #t)