fix log-event propagation in `compiler/cm'

2013-01-23 11:40:19 -05:00 · 2013-01-23 11:40:19 -05:00 · 780fc2100a
commit 780fc2100a
parent b38036f36d
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/cm.rkt
+++ b/collects/compiler/cm.rkt
@ -377,7 +377,7 @@
  (define accomplice-logger (make-logger))
  (define log-th
    (let ([orig-log (current-logger)]
-          [receiver (make-log-receiver accomplice-logger 'info)])
+          [receiver (make-log-receiver accomplice-logger 'debug)])
      (thread (lambda ()
                (let loop ()
                  (let ([l (sync receiver)])