Unset contracts enabled by default for TR.
This commit is contained in:
parent
f42a7b9fc9
commit
5ab3eb81fd
|
@ -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