avoid defeating an optimization in the loggging code during raco make

2016-03-27 16:21:41 -05:00 · 2016-03-27 16:21:41 -05:00 · a1ba579666
commit a1ba579666
parent 6a5b7ae9f9
1 changed files with 3 additions and 3 deletions
--- 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)