From 2c8fc30b1dda1f14dc5f0f2387b1133aaa20cd4f Mon Sep 17 00:00:00 2001 From: Sean Corfield Date: Wed, 12 Mar 2025 15:39:24 -0700 Subject: [PATCH] restore some clojure-only optimizations on keywords Signed-off-by: Sean Corfield --- src/honey/sql.cljc | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc index 3a8c3fe..6c78810 100644 --- a/src/honey/sql.cljc +++ b/src/honey/sql.cljc @@ -436,7 +436,8 @@ (defn- format-simple-var ([x] (let [c (if (keyword? x) - (str (symbol x)) + #?(:clj (str (.sym ^clojure.lang.Keyword x)) + :default (subs (str x) 1)) (str x))] (format-simple-var x c {}))) ([x c opts] @@ -453,7 +454,8 @@ ;; for multiple / in the %fun.call case so that ;; qualified column names can be used: (let [c (if (keyword? x) - (str (symbol x)) + #?(:clj (str (.sym ^clojure.lang.Keyword x)) + :default (subs (str x) 1)) (str x))] (cond (str/starts-with? c "%") (let [[f & args] (split-by-separator (subs c 1) ".")] @@ -1731,9 +1733,8 @@ qualifier, if any." [k] (if (keyword? k) - (if-let [n (namespace k)] - (symbol n (name k)) - (symbol (name k))) + #?(:clj (.sym ^clojure.lang.Keyword k) + :default (subs (str k) 1)) k)) (defn format-dsl