Logging can be turned on from the command-line.
original commit: 9b598df60a5fb621491a3513ff445e2db6053f83
This commit is contained in:
parent
7b0682b8d0
commit
99658f326c
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user