[Guile-commits] 96/99: Fix cps's choose-compiler to be able to compile javascript

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit 280312a9c3dc81003f865fabe66c7b5d10e3f3ec
Author: Christopher Lemmer Webber <cweb...@dustycloud.org>
AuthorDate: Tue May 11 10:37:10 2021 -0400

    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
---
 module/language/cps/spec.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/module/language/cps/spec.scm b/module/language/cps/spec.scm
index febb4b0..812f8b7 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"