summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/clojure_sql/compiler.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure_sql/compiler.clj b/src/clojure_sql/compiler.clj
index 881a794..5bec649 100644
--- a/src/clojure_sql/compiler.clj
+++ b/src/clojure_sql/compiler.clj
@@ -277,8 +277,8 @@
(defn update! [db {:keys [tables fields where joins]} partial-record]
(assert (= (count tables) 1) "Cannot delete from a multiple-table query")
- (assert (seq (set/intersection (keys partial-record)
- (keys fields))) "At least one field must be being updated")
+ (assert (seq (set/intersection (set (keys partial-record))
+ (set (keys fields)))) "At least one field must be being updated")
(let [fix-expr (partial walk/prewalk (fn [x]
(if (vector? x)
(second x)