diff options
author | Ian Price <ianprice90@googlemail.com> | 2017-06-14 21:13:56 +0100 |
---|---|---|
committer | Ian Price <ianprice90@googlemail.com> | 2017-06-14 21:27:05 +0100 |
commit | 23f829b1750fc02bb9d354dacd9e9d2e4abf1462 (patch) | |
tree | 717fda03e2c6388cae20224e502a443082e00bd4 /module/language/cps/compile-js.scm | |
parent | 1b36a76ea45bff9325b311539b8aa8774b348db5 (diff) | |
download | guile-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.scm | 12 |
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, |