guard against uncomparable values

Signed-off-by: Sean Corfield <[email protected]>

src/honey/sql.cljc

@@ -1060,7 +1060,9 @@
 
 (defn- format-values [k xs]
   (let [first-xs (when (sequential? xs) (first (drop-while ident? xs)))
-        row-ctr  (and (sequential? xs) (contains? #{:row 'rows} (first xs)))
+        row-ctr  (and (sequential? xs)
+                      (ident? (first xs))
+                      (contains? #{:row 'rows} (first xs)))
         xs       (if row-ctr (rest xs) xs)]
     (cond (and (ident? xs) (contains? #{:default 'default} xs))
           [(str (sql-kw xs) " " (sql-kw k))]