Skip to content

Commit

Permalink
use vec perserving version compile* for alias element content
Browse files Browse the repository at this point in the history
  • Loading branch information
@onionpancakes
onionpancakes committed Feb 20, 2024
1 parent 1a4e615 commit e1c0a26
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions src/dev/onionpancakes/chassis/compiler.clj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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]
Expand All @@ -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]
Expand All @@ -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]
Expand All @@ -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]
Expand Down

0 comments on commit e1c0a26

Please sign in to comment.