From a968e8595b999d5c0a43c59de69bcb4f34e205c1 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Fri, 14 Jan 2022 21:06:26 -0800
Subject: Write a first draft macro expander.

Committing it because it compiles. I have to write tests and debug
it still.
---
 csc/macros-test.csc | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 csc/macros-test.csc

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

diff --git a/csc/macros-test.csc b/csc/macros-test.csc
new file mode 100644
index 0000000..007b881
--- /dev/null
+++ b/csc/macros-test.csc
@@ -0,0 +1,12 @@
+(import (scheme base)
+        (only (csc ir1) make-constant)
+        (only (csc testing)
+          assert-equal
+          test)
+        (csc macros))
+
+
+(test builtin-quote
+  (assert-equal
+    (make-constant '(test 1 2 3))
+    (expand '(quote (test 1 2 3)) test-environment)))
-- 
cgit v1.3.1