From a4fc91d5f155ef62d2b62f8279a4bf65a9050896 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Tue, 21 Jun 2022 17:40:16 -0700
Subject: Start CPS :)

---
 csc/ir2.csc | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'csc/ir2.csc')

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
-- 
cgit v1.3.1