From 2ed40e6b09b86b2badc5aeea44c39515ff4b77e5 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 26 Aug 2010 18:53:11 -0400 Subject: [PATCH] Adapted filename logging for testing purposes. original commit: 6f6ec3b2bf1999e64c04b9ff2afb29739e9c3eef --- collects/typed-scheme/optimizer/utils.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/optimizer/utils.rkt b/collects/typed-scheme/optimizer/utils.rkt index bea4208e..d36b92e2 100644 --- 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))