From 1985e01fed8502a24d02957f9d0e2cd89d0fddd5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Thu, 24 Sep 2026 12:02:25 -0600
Subject: [PATCH] cli

---
 src/expand/core.clj | 10 ++++++++++
 t.scm               |  3 ++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/expand/core.clj b/src/expand/core.clj
index 230acf6..a0622de 100644
--- a/src/expand/core.clj
+++ b/src/expand/core.clj
@@ -405,6 +405,16 @@
                      vec)
                 :else decl)))))
 
+(defn -main []
+  (clojure.pprint/with-pprint-dispatch
+    clojure.pprint/code-dispatch
+    (-> (slurp *in*)
+        (scm/read-syntax :library? true :throw? true)
+        expand-library
+        library-syntax->datum
+        library->datum
+        clojure.pprint/pprint)))
+
 (comment
   (-> "t.scm"
       slurp
diff --git a/t.scm b/t.scm
index 4958c82..0f3061d 100644
--- a/t.scm
+++ b/t.scm
@@ -5,4 +5,5 @@
                          ((_ test body ...)
                           (if test (begin body ...))))))
       (when #t
-        (display "blah")))))
+        (display "blah")
+        (newline)))))