diff options
| -rw-r--r-- | src/clj/clojure/set.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clj/clojure/set.clj b/src/clj/clojure/set.clj index e881ebe9..0cb4b49d 100644 --- a/src/clj/clojure/set.clj +++ b/src/clj/clojure/set.clj @@ -74,7 +74,8 @@ [map kmap] (reduce (fn [m [old new]] - (if (not= old new) + (if (and (not= old new) + (contains? m old)) (-> m (assoc new (m old)) (dissoc old)) m)) map kmap)) |