Unset contracts enabled by default for TR.

original commit: 5ab3eb81fdc695f30353e0f49dd7fb59a411f809
This commit is contained in:
Eric Dobson 2014-05-20 20:57:26 -07:00
parent 3beb5c228e
commit 615ce5603c

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?