Unset contracts enabled by default for TR.
original commit: 5ab3eb81fdc695f30353e0f49dd7fb59a411f809
This commit is contained in:
parent
3beb5c228e
commit
615ce5603c
|
@ -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?
|
||||
|
|
Loading…
Reference in New Issue
Block a user