From 6f4487f268e27020084182f8478741793b374e1d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 5 Jun 2015 00:54:18 +0200 Subject: [PATCH] Disable CPS optimization passes * module/language/cps/compile-bytecode.scm (compile-bytecode): Don't bother running the CPS optimization passes, as they are redundant with CPS2. --- module/language/cps/compile-bytecode.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index 039aa5b65..86a3db733 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -510,7 +510,13 @@ (define (compile-bytecode exp env opts) ;; See comment in `optimize' about the use of set!. - (set! exp (optimize exp opts)) + + ;; Since CPS2's optimization pass replaces CPS and uses less memory, + ;; we disable the optimization pass for now. We'll remove it once + ;; we're sure. + ;; + ;; (set! exp (optimize exp opts)) + (set! exp (convert-closures exp)) ;; first-order optimization should go here (set! exp (reify-primitives exp))