Added better tracing to the optimizer.

original commit: d47221c55dba99ecbce45affa92011203b02bb9e
2010-06-23 19:37:23 -04:00 · 2010-06-23 19:37:23 -04:00 · b8378a32a7
commit b8378a32a7
parent 680e7fee29
1 changed files with 2 additions and 1 deletions
--- a/collects/typed-scheme/private/optimize.rkt
+++ b/collects/typed-scheme/private/optimize.rkt
@ -63,8 +63,9 @@
 (define *optimization-log-file* "opt-log")
 (define (log-optimization kind stx)
  (if *log-optimizations?*
-      (printf "~a line ~a col ~a - ~a\n"
+      (printf "~a line ~a col ~a - ~a - ~a\n"
              (syntax-source stx) (syntax-line stx) (syntax-column stx)
+              (syntax->datum stx)
              kind)
      #t))