From ce1fcd2b5409e6d4cd8862d22a39d6cf16f307c8 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 30 Aug 2011 17:54:02 -0400 Subject: [PATCH] Dynamic-require the optimizer. original commit: c414b09ecfb424fcc4e0c4d80d9cf5197ea297c9 --- collects/typed-scheme/tc-setup.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/tc-setup.rkt b/collects/typed-scheme/tc-setup.rkt index 1e051e89..2fb9dbf4 100644 --- a/collects/typed-scheme/tc-setup.rkt +++ b/collects/typed-scheme/tc-setup.rkt @@ -4,7 +4,6 @@ (except-in syntax/parse id) unstable/mutated-vars racket/pretty - (optimizer optimizer) (private type-contract) (types utils convenience) (typecheck typechecker provide-handling tc-toplevel) @@ -27,8 +26,12 @@ (define (maybe-optimize body) ;; do we optimize? (if (optimize?) - (begin0 (map optimize-top (syntax->list body)) - (do-time "Optimized")) + (let ([optimize-top + (begin0 (dynamic-require 'typed-scheme/optimizer/optimizer + 'optimize-top) + (do-time "Loading optimizer"))]) + (begin0 (map optimize-top (syntax->list body)) + (do-time "Optimized"))) body)) (define-syntax-rule (tc-setup orig-stx stx expand-ctxt fully-expanded-stx checker result . body)