Adapted filename logging for testing purposes.

original commit: 6f6ec3b2bf1999e64c04b9ff2afb29739e9c3eef
2010-08-26 18:53:11 -04:00 · 2010-08-26 18:53:11 -04:00 · 2ed40e6b09
commit 2ed40e6b09
parent 99658f326c
1 changed files with 2 additions and 1 deletions
--- a/collects/typed-scheme/optimizer/utils.rkt
+++ b/collects/typed-scheme/optimizer/utils.rkt
@ -23,7 +23,8 @@
 (define (log-optimization kind stx)
  (if *log-optimizations?*
      (printf "~a line ~a col ~a - ~a - ~a\n"
-              (syntax-source stx) (syntax-line stx) (syntax-column stx)
+              (syntax-source-file-name stx)
+              (syntax-line stx) (syntax-column stx)
              (syntax->datum stx)
              kind)
      #t))