summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"