diff options
Diffstat (limited to 'module/language/cps/spec.scm')
-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 febb4b019..812f8b71e 100644 --- a/module/language/cps/spec.scm +++ b/module/language/cps/spec.scm @@ -45,7 +45,11 @@ exp port)) (define (choose-compiler target optimization-level opts) - (cons 'bytecode compile-bytecode)) + (match (language-name target) + ['bytecode + (cons 'bytecode compile-bytecode)] + [(or 'js-il 'javascript) + (cons 'js-il compile-js)])) (define-language cps #:title "CPS Intermediate Language" |