diff options
author | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-10 21:44:55 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-10 21:44:55 -0400 |
commit | 6f112d501d3261b1fb7934350d5b0f4abdc12371 (patch) | |
tree | d3ffb589b8c200bfaf3275404ae4f40a8ef81edf | |
parent | 204cb986469b2751a3c3347a34a8013c1a0b6954 (diff) | |
download | guile-6f112d501d3261b1fb7934350d5b0f4abdc12371.tar.gz |
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.
-rw-r--r-- | module/language/cps/spec.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/language/cps/spec.scm b/module/language/cps/spec.scm index 812f8b71e..01e6e5bec 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" |