Allow symbols in for/lock clauses

This commit is contained in:
Sean Corfield 2021-02-08 12:48:33 -08:00
parent c8fe84cbb4
commit 9f579f492a

View file

@ -366,7 +366,11 @@
[(str (sql-kw k) " " (sql-kw strength) [(str (sql-kw k) " " (sql-kw strength)
(when tables (when tables
(str (str
(cond (#{:nowait :skip-locked :wait} tables) (cond (and (keyword? tables)
(#{:nowait :skip-locked :wait} tables))
(str " " (sql-kw tables))
(and (symbol? tables)
('#{nowait skip-locked wait} tables))
(str " " (sql-kw tables)) (str " " (sql-kw tables))
(sequential? tables) (sequential? tables)
(str " OF " (str " OF "