mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Add compiler-chooser for CPS spec

Browse source 
However, it probably isn't correct.  Right now it just always chooses
"bytecode"... how to get it to correctly/intelligently choose the right
path?

* module/language/cps/spec.scm (choose-compiler): New variable.
(cps): Add it as #:compiler-chooser target.
This commit is contained in:
Christopher Lemmer Webber 2021-05-11 10:16:34 -04:00
parent 2e0cfecc6d
commit a23bf2a4d9
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -44,6 +44,9 @@
port) port)
exp port)) exp port))
(define (choose-compiler target optimization-level opts)
(cons 'bytecode compile-bytecode))
(define-language cps (define-language cps
#:title "CPS Intermediate Language" #:title "CPS Intermediate Language"
#:reader read-cps #:reader read-cps
@ -51,4 +54,5 @@
#:compilers `((bytecode . ,compile-bytecode) #:compilers `((bytecode . ,compile-bytecode)
(js-il . ,compile-js)) (js-il . ,compile-js))
#:for-humans? #f #:for-humans? #f
#:lowerer make-cps-lowerer) #:lowerer make-cps-lowerer
#:compiler-chooser choose-compiler)