diff options
author | Christopher Lemmer Webber <cwebber@dustycloud.org> | 2021-05-11 10:16:34 -0400 |
---|---|---|
committer | Christopher Lemmer Webber <cwebber@dustycloud.org> | 2021-05-11 10:16:34 -0400 |
commit | a23bf2a4d963333fee4e55eb03b470ee8d0a237c (patch) | |
tree | c7cf1da6e6192e8fcb5839390653b138ce0780a6 /module | |
parent | 2e0cfecc6dfeb123aa0be18a5c0eae480d5ad26b (diff) | |
download | guile-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.scm | 6 |
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) |