From d9256f2b766af163c208c9d9ea93c1bb0579a218 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 15 Jun 2011 11:33:22 -0400 Subject: [PATCH] Refactoring. --- collects/typed-scheme/optimizer/logging.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/collects/typed-scheme/optimizer/logging.rkt b/collects/typed-scheme/optimizer/logging.rkt index 529597b112..ae7bc6803a 100644 --- a/collects/typed-scheme/optimizer/logging.rkt +++ b/collects/typed-scheme/optimizer/logging.rkt @@ -34,7 +34,7 @@ (syntax->datum stx) msg)) -(define (do-logging msg stx) +(define (log-optimization msg stx) (let* ([new-message (gen-log-message msg stx)] [new-entry (log-entry new-message (syntax-position stx))]) (unless (set-member? log-so-far new-entry) @@ -45,8 +45,8 @@ (define (print-log) (define logger (current-logger)) ;; add missed optimizations messages to the log, now that we know all of them - (for-each (lambda (x) (do-logging (format-missed-optimization x) - (missed-optimization-stx x))) + (for-each (lambda (x) (log-optimization (format-missed-optimization x) + (missed-optimization-stx x))) missed-optimizations-log) (for-each (lambda (x) (log-message logger 'warning (log-entry-msg x) optimization-log-key)) @@ -69,8 +69,6 @@ (set! log-so-far (set)) (set! missed-optimizations-log '())) -(define (log-optimization kind stx) (do-logging kind stx)) - ;; Keep track of optimizations that "almost" happened, with the intention ;; of reporting them to the user.