From d47221c55dba99ecbce45affa92011203b02bb9e Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 23 Jun 2010 19:37:23 -0400 Subject: [PATCH] Added better tracing to the optimizer. --- collects/typed-scheme/private/optimize.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/optimize.rkt b/collects/typed-scheme/private/optimize.rkt index 5d466deb86..c415b1b400 100644 --- 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))