diff options
-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" |