From 615ce5603c9aeb000e7dae9b0351268d8056961c Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Tue, 20 May 2014 20:57:26 -0700 Subject: [PATCH] Unset contracts enabled by default for TR. original commit: 5ab3eb81fdc695f30353e0f49dd7fb59a411f809 --- .../typed-racket-lib/typed-racket/utils/utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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?