From 780fc2100a8af257411455a72b19995f524851ae Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Jan 2013 11:40:19 -0500 Subject: [PATCH] fix log-event propagation in `compiler/cm' --- collects/compiler/cm.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index 467dbdeddb..4d19fb23f9 100644 --- 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)])