From c5fcc7d0f5c3f2f596f4d02d5e84283efce7eb52 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Tue, 21 Jun 2022 20:14:25 -0700
Subject: More progress on CPS.

---
 csc/cps-test.csc | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 csc/cps-test.csc

(limited to 'csc/cps-test.csc')

diff --git a/csc/cps-test.csc b/csc/cps-test.csc
new file mode 100644
index 0000000..dd66078
--- /dev/null
+++ b/csc/cps-test.csc
@@ -0,0 +1,18 @@
+(import (scheme base)
+        (only (csc ir2)
+          ir2=?
+          make-atom
+          make-tail
+          make-constant)
+        (only (csc testing)
+          assert-equal
+          test)
+        (csc cps))
+
+
+(test atom-const
+  (assert-equal ir2=?
+    (make-atom
+      (make-constant 5)
+      (make-tail))
+    (ir1->ir2 (make-constant 5))))
-- 
cgit v1.3.1