Disable debugging printing.

2012-06-16 18:28:01 -04:00 · 2012-06-16 18:28:01 -04:00 · da897a2f85
commit da897a2f85
parent 39e014bc55
1 changed files with 2 additions and 2 deletions
--- 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)