summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorChristopher Lemmer Webber <cwebber@dustycloud.org>2021-05-11 10:16:34 -0400
committerChristopher Lemmer Webber <cwebber@dustycloud.org>2021-05-11 10:16:34 -0400
commita23bf2a4d963333fee4e55eb03b470ee8d0a237c (patch)
treec7cf1da6e6192e8fcb5839390653b138ce0780a6 /module
parent2e0cfecc6dfeb123aa0be18a5c0eae480d5ad26b (diff)
downloadguile-a23bf2a4d963333fee4e55eb03b470ee8d0a237c.tar.gz
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.
Diffstat (limited to 'module')
-rw-r--r--module/language/cps/spec.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/module/language/cps/spec.scm b/module/language/cps/spec.scm
index add9bb14c..febb4b019 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)