Unset contracts enabled by default for TR.

This commit is contained in:
Eric Dobson 2014-05-20 20:57:26 -07:00
parent f42a7b9fc9
commit 5ab3eb81fd

View File

@ -20,7 +20,7 @@ at least theoretically.
rep utils typecheck infer env private types static-contracts)
(define optimize? (make-parameter #t))
(define-for-syntax enable-contracts? (or (getenv "PLT_TR_CONTRACTS") #t))
(define-for-syntax enable-contracts? (and (getenv "PLT_TR_CONTRACTS") #t))
(define-syntax do-contract-req
(if enable-contracts?