Logging can be turned on from the command-line.

original commit: 9b598df60a5fb621491a3513ff445e2db6053f83
This commit is contained in:
Vincent St-Amour 2010-08-26 18:51:48 -04:00
parent 7b0682b8d0
commit 99658f326c

View File

@ -15,8 +15,9 @@
unboxed-gensym reset-unboxed-gensym
optimize)
(define *log-optimizations?* #f)
(define *log-optimizations?*
(member "--log-optimizations"
(vector->list (current-command-line-arguments))))
(define *log-optimizatons-to-log-file?* #f)
(define *optimization-log-file* "opt-log")
(define (log-optimization kind stx)