diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-06-21 17:40:16 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-06-21 17:40:16 -0700 |
| commit | a4fc91d5f155ef62d2b62f8279a4bf65a9050896 (patch) | |
| tree | 721b5a1dadfc862b61cd5a49fdd1b375ac457455 /csc/ir2.csc | |
| parent | 3788d0a175b9372b3f39bc10e5462f567000c987 (diff) | |
| download | chromatopelma-a4fc91d5f155ef62d2b62f8279a4bf65a9050896.tar.zst | |
Start CPS :)
Diffstat (limited to 'csc/ir2.csc')
| -rw-r--r-- | csc/ir2.csc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/csc/ir2.csc b/csc/ir2.csc index 0c37d6c..46dbad1 100644 --- a/csc/ir2.csc +++ b/csc/ir2.csc @@ -69,6 +69,14 @@ ; It's CPS time bitch. + ; An atom consists of an ir1 expression and a continuation. + (define-record-type <atom> + (make-atom expression continuation) + atom? + (expression atom-expression) + (continuation atom-continuation)) + + ; <variable> (define-record-type <variable> (make-variable k var |