Allow disabling TR optimization with an environment variable. (#504)

This commit is contained in:
Sam Tobin-Hochstadt 2017-03-01 13:19:15 +00:00 committed by GitHub
parent b3ab93768f
commit b24507a71b

View File

@ -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)