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

Added better tracing to the optimizer.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-06-23 19:37:23 -04:00
parent 8c8dbf0895
commit d47221c55d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/private/optimize.rkt
View File

@ -63,8 +63,9 @@
(define *optimization-log-file* "opt-log") (define *optimization-log-file* "opt-log")
(define (log-optimization kind stx) (define (log-optimization kind stx)
(if *log-optimizations?* (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-source stx) (syntax-line stx) (syntax-column stx)
(syntax->datum stx)
kind) kind)
#t)) #t))