From 629feb81bf1119396940f6b7fca1402010d1e89e Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 23 Jun 2011 14:06:06 -0400 Subject: [PATCH] Pass log struct along with the log messages. original commit: 7f3bb5d0173d22733f49ec0b5187ab433bc0d264 --- collects/typed-scheme/optimizer/logging.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/typed-scheme/optimizer/logging.rkt b/collects/typed-scheme/optimizer/logging.rkt index b94a5660..6fea65ef 100644 --- a/collects/typed-scheme/optimizer/logging.rkt +++ b/collects/typed-scheme/optimizer/logging.rkt @@ -62,7 +62,7 @@ (and (> badness 1) badness)))) missed-optimizations-log) (for-each (lambda (x) (log-message logger 'warning (log-entry-msg x) - optimization-log-key)) + (cons optimization-log-key x))) (sort (remove-duplicates log-so-far) (match-lambda* [(list (log-entry msg-x stx-x pos-x) @@ -193,8 +193,10 @@ (define (with-tr-logging-to-port port thunk) (with-intercepted-logging ; catch opt logs (lambda (l) - (when (eq? (vector-ref l 2) ; look only for optimizer messages - optimization-log-key) - (displayln (vector-ref l 1) port))) ; print log message + (let ([data (vector-ref l 2)]) + ;; look only for optimizer messages + (when (and (pair? data) + (eq? (car data) optimization-log-key)) + (displayln (vector-ref l 1) port)))) ; print log message thunk #:level 'warning))