diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/utils.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/utils.rkt index 134f59d3..36a6a8b0 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/utils.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/utils.rkt @@ -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?