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:
parent
055642a40a
commit
3833a22f75
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user