diff --git a/src/dev/onionpancakes/chassis/compiler.clj b/src/dev/onionpancakes/chassis/compiler.clj
index 1534a2a..b5c2473 100644
--- a/src/dev/onionpancakes/chassis/compiler.clj
+++ b/src/dev/onionpancakes/chassis/compiler.clj
@@ -224,10 +224,6 @@
   (and (>= (count elem) 2)
        (attrs? (nth elem 1))))
 
-(defn attrs-present-evaluated?
-  [elem]
-  (evaluated? (nth elem 1)))
-
 (defn attrs-absent?
   [[_ x :as elem]]
   (or (<= (count elem) 1)
@@ -302,7 +298,7 @@
 (defn compilable-alias-element-children
   [elem]
   (if (attrs-present? elem)
-    (if (attrs-present-evaluated? elem)
+    (if (evaluated? (nth elem 1))
       (compilable-alias-element-children-attrs-present-evaluated elem)
       (compilable-alias-element-children-attrs-present elem))
     (if (attrs-absent? elem)
@@ -381,7 +377,7 @@
 (defn compilable-element-children
   [elem]
   (if (attrs-present? elem)
-    (if (attrs-present-evaluated? elem)
+    (if (evaluated? (nth elem 1))
       (compilable-element-children-attrs-present-evaluated elem)
       (compilable-element-children-attrs-present elem))
     (if (attrs-absent? elem)