[Guile-commits] 94/99: Add compiler-chooser for CPS spec

[Christopher Allan Webber]

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

commit a23bf2a4d963333fee4e55eb03b470ee8d0a237c
Author: Christopher Lemmer Webber <cwebber@dustycloud.org>
AuthorDate: Tue May 11 10:16:34 2021 -0400

    Add compiler-chooser for CPS spec
    
    However, it probably isn't correct.  Right now it just always chooses
    "bytecode"... how to get it to correctly/intelligently choose the right
    path?
    
    * module/language/cps/spec.scm (choose-compiler): New variable.
    (cps): Add it as #:compiler-chooser target.
---
 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 add9bb1..febb4b0 100644
--- a/module/language/cps/spec.scm
+++ b/module/language/cps/spec.scm
@@ -44,6 +44,9 @@
                  port)
                exp port))
 
+(define (choose-compiler target optimization-level opts)
+  (cons 'bytecode compile-bytecode))
+
 (define-language cps
   #:title      "CPS Intermediate Language"
   #:reader     read-cps
@@ -51,4 +54,5 @@
   #:compilers   `((bytecode . ,compile-bytecode)
                   (js-il . ,compile-js))
   #:for-humans? #f
-  #:lowerer     make-cps-lowerer)
+  #:lowerer     make-cps-lowerer
+  #:compiler-chooser choose-compiler)