suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactoring.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-06-15 11:33:22 -04:00
parent 9f78a92613
commit d9256f2b76
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/optimizer/logging.rkt
View File

@ -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.