suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Made Typed Scheme's optimizer silent.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-06-11 15:48:12 -04:00
parent fe09ce3dee
commit a4c556bc85
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/typed-scheme.rkt
View File

@ -43,9 +43,8 @@
[(optimized-body ...) [(optimized-body ...)
;; do we optimize? ;; do we optimize?
(if (optimize?) (if (optimize?)
(begin (printf "optimizing ...\n") (begin0 (map optimize (syntax->list #'transformed-body))
(begin0 (map optimize (syntax->list #'transformed-body)) (do-time "Optimized"))
(do-time "Optimized")))
#'transformed-body)]) #'transformed-body)])
;; reconstruct the module with the extra code ;; reconstruct the module with the extra code
;; use the regular %#module-begin from `racket/base' for top-level printing ;; use the regular %#module-begin from `racket/base' for top-level printing