blob: 48e5f7756bde606bce469591aaba5b5abd272489 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#| 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)
(srfi 26)
(srfi 146)
(srfi 128))
(export cps-kappa cps-kappa=> cps-kappa?
cps-closure cps-closure=> cps-closure?
cps-apply-kont cps-apply-kont=>
cps-apply cps-apply=>
cps-if cps-if=>
core->cps
cps->sexpr
cps:with-sub-kont
eval-cps
eval-core)
(include "cps.scm"))
|
