From b24507a71b5bf6cde017b8440b8a0c455abd2b05 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 1 Mar 2017 13:19:15 +0000 Subject: [PATCH] Allow disabling TR optimization with an environment variable. (#504) --- typed-racket-lib/typed-racket/tc-setup.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed-racket-lib/typed-racket/tc-setup.rkt b/typed-racket-lib/typed-racket/tc-setup.rkt index 74b91cb1..fcbf8acb 100644 --- a/typed-racket-lib/typed-racket/tc-setup.rkt +++ b/typed-racket-lib/typed-racket/tc-setup.rkt @@ -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)