#| 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"))