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

t.scm

@@ -5,4 +5,5 @@
                          ((_ test body ...)
                           (if test (begin body ...))))))
       (when #t
-        (display "blah")))))
+        (display "blah")
+        (newline)))))