From dcf687d53b3a997c35fed13747f1a19499565859 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 11 Jun 2010 15:48:12 -0400 Subject: [PATCH] Made Typed Scheme's optimizer silent. original commit: a4c556bc85512ac720e9c11b3abeee9c8a8f5faa --- collects/typed-scheme/typed-scheme.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/typed-scheme.rkt b/collects/typed-scheme/typed-scheme.rkt index bf710a4f..b9b4a326 100644 --- a/collects/typed-scheme/typed-scheme.rkt +++ b/collects/typed-scheme/typed-scheme.rkt @@ -43,9 +43,8 @@ [(optimized-body ...) ;; do we optimize? (if (optimize?) - (begin (printf "optimizing ...\n") - (begin0 (map optimize (syntax->list #'transformed-body)) - (do-time "Optimized"))) + (begin0 (map optimize (syntax->list #'transformed-body)) + (do-time "Optimized")) #'transformed-body)]) ;; reconstruct the module with the extra code ;; use the regular %#module-begin from `racket/base' for top-level printing