Compile the inner vectors within ambig case forms

onionpancakes · Apr 4, 2024 · 14540c5 · 14540c5
1 parent 8902991
commit 14540c5
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/dev/onionpancakes/chassis/compiler.clj b/src/dev/onionpancakes/chassis/compiler.clj
@@ -523,14 +523,16 @@
       [`(let [~attrs-sym ~attrs]
           (if (c/attrs? ~attrs-sym)
             (c/->OpeningTag ~metadata ~tag ~head-id ~head-class ~attrs-sym)
-            [~(c/->OpeningTag metadata tag head-id head-class nil)
-             ~attrs-sym
-             ~(c/->ClosingTag metadata tag)]))]
+            (compile
+             [~(c/->OpeningTag metadata tag head-id head-class nil)
+              ~attrs-sym
+              ~(c/->ClosingTag metadata tag)])))]
       [`(let [~attrs-sym ~attrs]
           (if (c/attrs? ~attrs-sym)
             (c/->OpeningTag ~metadata ~tag ~head-id ~head-class ~attrs-sym)
-            [~(c/->OpeningTag metadata tag head-id head-class nil)
-             ~attrs-sym]))
+            (compile
+             [~(c/->OpeningTag metadata tag head-id head-class nil)
+              ~attrs-sym])))
        (c/content-subvec elem 2)
        (c/->ClosingTag metadata tag)])))