summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/cps/compile-js.scm12
1 files changed, 2 insertions, 10 deletions
diff --git a/module/language/cps/compile-js.scm b/module/language/cps/compile-js.scm
index 34b1ffe56..ddfe88c3a 100644
--- a/module/language/cps/compile-js.scm
+++ b/module/language/cps/compile-js.scm
@@ -5,18 +5,10 @@
#:use-module (ice-9 match)
#:export (compile-js))
-(define optimize (@@ (language cps compile-bytecode) optimize))
-(define convert-closures (@@ (language cps compile-bytecode) convert-closures))
-(define reify-primitives (@@ (language cps compile-bytecode) reify-primitives))
-(define renumber (@@ (language cps compile-bytecode) renumber))
+(define lower-cps (@@ (language cps compile-bytecode) lower-cps))
(define (compile-js exp env opts)
- ;; See comment in `optimize' about the use of set!.
- (set! exp (optimize exp opts))
- (set! exp (convert-closures exp))
- ;; first-order optimization should go here
- (set! exp (reify-primitives exp))
- (set! exp (renumber exp))
+ (set! exp (lower-cps exp opts))
(match exp
(($ $program (($ $cont ks funs) ...))
;; TODO: I should special case the compilation for the initial fun,