bug fix symbol version of values row

Signed-off-by: Sean Corfield <sean@corfield.org>
This commit is contained in:
Sean Corfield 2024-09-29 12:01:01 -07:00
parent 3d48ecac37
commit de75ace988
No known key found for this signature in database

View file

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