mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Compile cps to bytecode by default

Browse source 
* module/language/cps/spec.scm (choose-compiler): Compile cps to
  bytecode by default if js-il or javascript are not explicitly chosen.
This commit is contained in:
Christine Lemmer-Webber 2021-10-10 21:44:55 -04:00
parent 204cb98646
commit 6f112d501d
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/cps/spec.scm
View file

@ -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"