src/expand.clj

@@ -256,7 +256,20 @@
   (-> "t.scm"
       slurp
       (scm/read-syntax :library? true)
-      expand-library)
+      expand-library
+      ;; :library/declarations
+      ;; second
+      ;; second
+      ;; scm/syntax->datum
+      (update :library/declarations
+              (fn [decls]
+                (for [decl decls]
+                  (match decl
+                    [:begin & xs] (->> xs
+                                       (map scm/syntax->datum)
+                                       (cons :begin)
+                                       vec)
+                    :else decl)))))
   (let [scopeholder (scm/new-scopeholder)
         env {[:global 'lambda] [:primitive 'lambda]}
         store-atom (atom {['lambda #{}] [:global 'lambda]})]