summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-js.scm
diff options
context:
space:
mode:
authorIan Price <ianprice90@googlemail.com>2017-06-14 21:13:56 +0100
committerIan Price <ianprice90@googlemail.com>2017-06-14 21:27:05 +0100
commit23f829b1750fc02bb9d354dacd9e9d2e4abf1462 (patch)
tree717fda03e2c6388cae20224e502a443082e00bd4 /module/language/cps/compile-js.scm
parent1b36a76ea45bff9325b311539b8aa8774b348db5 (diff)
downloadguile-23f829b1750fc02bb9d354dacd9e9d2e4abf1462.tar.gz
Fix build of (language cps compile-js)
* module/language/cps/compile-js.scm (compile-js): Use lower-cps from (language cps compile-bytecode) rather than optimize, which is no longer there.
Diffstat (limited to 'module/language/cps/compile-js.scm')
-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,