diff options
author | Christopher Lemmer Webber <cwebber@dustycloud.org> | 2021-05-11 10:37:10 -0400 |
---|---|---|
committer | Christopher Lemmer Webber <cwebber@dustycloud.org> | 2021-05-11 10:37:10 -0400 |
commit | 280312a9c3dc81003f865fabe66c7b5d10e3f3ec (patch) | |
tree | 054018b449b29c130ba34da04f3db19e28d18af7 | |
parent | 7e2f526e4d7c5c2e10bc51bd9f3c706c722c6f7a (diff) | |
download | guile-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.scm | 6 |
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" |