summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Lemmer Webber <cwebber@dustycloud.org>2021-05-11 10:37:10 -0400
committerChristopher Lemmer Webber <cwebber@dustycloud.org>2021-05-11 10:37:10 -0400
commit280312a9c3dc81003f865fabe66c7b5d10e3f3ec (patch)
tree054018b449b29c130ba34da04f3db19e28d18af7
parent7e2f526e4d7c5c2e10bc51bd9f3c706c722c6f7a (diff)
downloadguile-280312a9c3dc81003f865fabe66c7b5d10e3f3ec.tar.gz
Fix cps's choose-compiler to be able to compile javascript
* module/language/cps/spec.scm (choose-compiler): Fix to be able to recognize js-il and javascript as targets to compile to
-rw-r--r--module/language/cps/spec.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/module/language/cps/spec.scm b/module/language/cps/spec.scm
index febb4b019..812f8b71e 100644
--- a/module/language/cps/spec.scm
+++ b/module/language/cps/spec.scm
@@ -45,7 +45,11 @@
exp port))
(define (choose-compiler target optimization-level opts)
- (cons 'bytecode compile-bytecode))
+ (match (language-name target)
+ ['bytecode
+ (cons 'bytecode compile-bytecode)]
+ [(or 'js-il 'javascript)
+ (cons 'js-il compile-js)]))
(define-language cps
#:title "CPS Intermediate Language"