[Guile-commits] 99/99: Compile cps to bytecode by default

[Christopher Allan Webber]

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

commit 6f112d501d3261b1fb7934350d5b0f4abdc12371
Author: Christine Lemmer-Webber <cweb...@dustycloud.org>
AuthorDate: Sun Oct 10 21:44:55 2021 -0400

    Compile cps to bytecode by default
    
    * module/language/cps/spec.scm (choose-compiler): Compile cps to
      bytecode by default if js-il or javascript are not explicitly chosen.
---
 module/language/cps/spec.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/module/language/cps/spec.scm b/module/language/cps/spec.scm
index 812f8b7..01e6e5b 100644
--- a/module/language/cps/spec.scm
+++ b/module/language/cps/spec.scm
@@ -26,6 +26,7 @@
   #:use-module (language cps optimize)
   #:use-module (language cps compile-bytecode)
   #:use-module (language cps compile-js)
+  #:use-module (language cps compile-js)
   #:export (cps))
 
 (define (read-cps port env)
@@ -46,10 +47,10 @@
 
 (define (choose-compiler target optimization-level opts)
   (match (language-name target)
-    ['bytecode
-     (cons 'bytecode compile-bytecode)]
     [(or 'js-il 'javascript)
-     (cons 'js-il compile-js)]))
+     (cons 'js-il compile-js)]
+    [_
+     (cons 'bytecode compile-bytecode)]))
 
 (define-language cps
   #:title      "CPS Intermediate Language"