Allow disabling TR optimization with an environment variable. (#504)
This commit is contained in:
parent
b3ab93768f
commit
b24507a71b
|
@ -19,7 +19,7 @@
|
|||
|
||||
(define (maybe-optimize body)
|
||||
;; do we optimize?
|
||||
(if (optimize?)
|
||||
(if (and (optimize?) (not (getenv "PLT_TR_NO_OPTIMIZE")))
|
||||
(begin
|
||||
(do-time "Starting optimizer")
|
||||
(begin0 (stx-map optimize-top body)
|
||||
|
|
Loading…
Reference in New Issue
Block a user