diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-06-21 20:14:25 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-06-21 20:14:25 -0700 |
| commit | c5fcc7d0f5c3f2f596f4d02d5e84283efce7eb52 (patch) | |
| tree | 1b668d561077e49a7e5daa7f32eef36c630a1b23 /csc/cps.csc | |
| parent | Comment expand-body. (diff) | |
| download | chromatopelma-c5fcc7d0f5c3f2f596f4d02d5e84283efce7eb52.tar.zst | |
More progress on CPS.
Diffstat (limited to 'csc/cps.csc')
| -rw-r--r-- | csc/cps.csc | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/csc/cps.csc b/csc/cps.csc index 561a698..bd4f088 100644 --- a/csc/cps.csc +++ b/csc/cps.csc @@ -1,16 +1,19 @@ (define-library (csc cps) + (export + ir1->ir2) (import (only (csc ir1) make-constant constant? lexical-ref? library-ref?) (only (csc ir2) - (make-atom)) + make-atom + make-tail) (scheme base)) (begin - (define (to-cps expr k) + (define (to-cps expr continuation) (cond ((or (constant? expr) (lexical-ref? expr) @@ -20,3 +23,4 @@ (define (ir1->ir2 program) + (to-cps program (make-tail))))) |