From e1c0a2699b73468e1848684679717f110bfbdb9c Mon Sep 17 00:00:00 2001 From: onionpancakes <639985+onionpancakes@users.noreply.github.com> Date: Mon, 19 Feb 2024 21:15:36 -0800 Subject: [PATCH] use vec perserving version compile* for alias element content --- src/dev/onionpancakes/chassis/compiler.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/dev/onionpancakes/chassis/compiler.clj b/src/dev/onionpancakes/chassis/compiler.clj index 6b09eac..459b72b 100644 --- a/src/dev/onionpancakes/chassis/compiler.clj +++ b/src/dev/onionpancakes/chassis/compiler.clj @@ -271,7 +271,7 @@ [`(c/resolve-alias ~metadata ~tag ~(c/make-head-attrs head-id head-class attrs) - (compile ~(c/content-subvec elem 2)))])) + (compile* ~(c/content-subvec elem 2)))])) (defn compilable-alias-element-children-attrs-present [elem] @@ -287,7 +287,7 @@ ~(if (or head-id head-class) `(c/make-head-attrs ~head-id ~head-class ~attrs) attrs) - (compile ~(c/content-subvec elem 2)))])) + (compile* ~(c/content-subvec elem 2)))])) (defn compilable-alias-element-children-attrs-absent [elem] @@ -300,7 +300,7 @@ [`(c/resolve-alias ~metadata ~tag ~(c/make-head-attrs head-id head-class) - (compile ~(c/content-subvec elem 1)))])) + (compile* ~(c/content-subvec elem 1)))])) (defn compilable-alias-element-children-attrs-ambig [elem] @@ -319,11 +319,11 @@ ~(if (or head-id head-class) `(c/make-head-attrs ~head-id ~head-class ~attrs-sym) attrs-sym) - (compile ~(c/content-subvec elem 2))) + (compile* ~(c/content-subvec elem 2))) (c/resolve-alias ~metadata ~tag ~(c/make-head-attrs head-id head-class) - (compile ~[attrs-sym (c/content-subvec elem 2)]))))])) + (compile* ~[attrs-sym (c/content-subvec elem 2)]))))])) (defn compilable-alias-element-children [elem]