diff options
| author | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-11 20:59:39 -0400 |
|---|---|---|
| committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-11 20:59:39 -0400 |
| commit | a6ba7afed4262676cb752f0b612ca295c16c220a (patch) | |
| tree | 44f133454dd37010a9ed72010cb8f3f16c5a2408 | |
| parent | 6f112d501d3261b1fb7934350d5b0f4abdc12371 (diff) | |
| download | guile-compile-to-js-merge.tar.gz | |
Remove lower-cps call in compile-js.compile-to-js-merge
Since ijp's work, lower-cps is run before it reaches this stage.
* module/language/cps/compile-js.scm (lower-cps): Remove import.
(compile-js): Remove call to lower-cps.
| -rw-r--r-- | module/language/cps/compile-js.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/language/cps/compile-js.scm b/module/language/cps/compile-js.scm index 128f5d64d..8ede4f17d 100644 --- a/module/language/cps/compile-js.scm +++ b/module/language/cps/compile-js.scm @@ -29,7 +29,6 @@ #:export (compile-js)) (define intmap-select (@@ (language cps compile-bytecode) intmap-select)) -(define lower-cps (@@ (language cps optimize) lower-cps)) (define (compile-js exp env opts) ;; TODO: I should special case the compilation for the initial fun, @@ -44,7 +43,7 @@ accum)) (compute-reachable-functions map 0) '())) - (values (make-program (intmap->program (lower-cps exp opts))) env env)) + (values (make-program (intmap->program exp)) env env)) (define (compile-fun cps kfun) |