summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristine Lemmer-Webber <cwebber@dustycloud.org>2021-10-10 21:44:55 -0400
committerChristine Lemmer-Webber <cwebber@dustycloud.org>2021-10-10 21:44:55 -0400
commit6f112d501d3261b1fb7934350d5b0f4abdc12371 (patch)
treed3ffb589b8c200bfaf3275404ae4f40a8ef81edf
parent204cb986469b2751a3c3347a34a8013c1a0b6954 (diff)
downloadguile-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.scm7
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"