From aa6555008635b49ec105323785dd58e3e7aad7c2 Mon Sep 17 00:00:00 2001
From: James Conroy-Finn <git@invetica.co.uk>
Date: Mon, 16 Oct 2023 19:22:23 +0100
Subject: [PATCH] Use ident? instead of identical? and equals

---
 src/honey/sql.cljc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index 974e2d4..b3a1645 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -936,7 +936,7 @@
 
 (defn- format-values [k xs]
   (let [first-xs (when (sequential? xs) (first (drop-while ident? xs)))]
-    (cond (or (identical? :default xs) (= 'default xs))
+    (cond (and (ident? xs) (contains? #{:default 'default} xs))
           [(str (sql-kw xs) " " (sql-kw k))]
           (empty? xs)
           [(str (sql-kw k) " ()")]