From ac527c5d30a269bef61f6846e849baca4928db3b Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sat, 16 Jun 2012 18:28:01 -0400 Subject: [PATCH] Disable debugging printing. original commit: da897a2f857e2ff3585ad946a1ca7325ab0ea9c7 --- collects/typed-racket/tc-setup.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-racket/tc-setup.rkt b/collects/typed-racket/tc-setup.rkt index fce91f20..5606e66b 100644 --- a/collects/typed-racket/tc-setup.rkt +++ b/collects/typed-racket/tc-setup.rkt @@ -58,9 +58,9 @@ (cons (syntax-e id) ty)))))] ;; reinitialize disappeared uses [disappeared-use-todo null] - [disappeared-bindings-todo null]) + [disappeared-bindings-todo null]) (define fully-expanded-stx (disarm* (local-expand stx expand-ctxt (list #'module*)))) - (when #t + (when (show-input?) (pretty-print (syntax->datum fully-expanded-stx))) (do-time "Local Expand Done") (init)