cwebber pushed a commit to branch compile-to-js-merge
in repository guile.
commit a23bf2a4d963333fee4e55eb03b470ee8d0a237c
Author: Christopher Lemmer Webber <[email protected]>
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)
