From 52790e6595fad6f92ee1a946c4273e6df3d8a489 Mon Sep 17 00:00:00 2001
From: onionpancakes <639985+onionpancakes@users.noreply.github.com>
Date: Mon, 19 Feb 2024 15:33:04 -0800
Subject: [PATCH] rm attrs-present-evaluated?

---
 src/dev/onionpancakes/chassis/compiler.clj | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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)