From a23bf2a4d963333fee4e55eb03b470ee8d0a237c Mon Sep 17 00:00:00 2001 From: Christopher Lemmer Webber Date: Tue, 11 May 2021 10:16:34 -0400 Subject: [PATCH] Add compiler-chooser for CPS spec 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. --- module/language/cps/spec.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/module/language/cps/spec.scm b/module/language/cps/spec.scm index add9bb14c..febb4b019 100644 --- a/module/language/cps/spec.scm +++ b/module/language/cps/spec.scm @@ -44,6 +44,9 @@ port) exp port)) +(define (choose-compiler target optimization-level opts) + (cons 'bytecode compile-bytecode)) + (define-language cps #:title "CPS Intermediate Language" #:reader read-cps @@ -51,4 +54,5 @@ #:compilers `((bytecode . ,compile-bytecode) (js-il . ,compile-js)) #:for-humans? #f - #:lowerer make-cps-lowerer) + #:lowerer make-cps-lowerer + #:compiler-chooser choose-compiler)