start cps translator

1 files changed, 22 insertions, 0 deletions

diff --git a/gamma-scheme.cps.sld b/gamma-scheme.cps.sld
new file mode 100644
index 0000000..4d46f23
--- /dev/null
+++ b/gamma-scheme.cps.sld
@@ -0,0 +1,22 @@
+#| Copyright (c) Peter McGoron 2024
+ |
+ | This Source Code Form is subject to the terms of the Mozilla Public
+ | License, v. 2.0. If a copy of the MPL was not distributed with this
+ | file, You can obtain one at https://mozilla.org/MPL/2.0/.
+ |#
+
+(define-library (gamma-scheme cps)
+  (import (scheme base)
+          (scheme write)
+          (mcgoron cond-thunk)
+          (mcgoron cond-thunk values))
+  (export cps-kappa cps-kappa=>
+          cps-closure cps-closure=>
+          cps-apply-kont cps-apply-kont=>
+          cps-apply cps-apply=>
+          cps-quote cps-quote=>
+          cps-if cps-if=>
+          core->cps
+          cps->sexpr
+          cps:with-sub-kont)
+  (include "cps.scm"))