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.
This commit is contained in:
Matthew Flatt 2018-11-25 08:06:28 -07:00
parent 055642a40a
commit 3833a22f75

View File

@ -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