cli

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