diff options
| author | Allen Rohner <arohner@gmail.com> | 2010-06-30 18:54:15 -0500 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-07-09 18:04:53 -0400 |
| commit | a07040032714a2f88c23b76c6484c1b8acd462b0 (patch) | |
| tree | af5a0ad2c0d61bb317e7bfecba917ddfa198a4d4 | |
| parent | 836bc44afff8ac17233565447e8a289aea3203c4 (diff) | |
Fix rename-keys to work with defrecords
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | src/clj/clojure/set.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/set.clj b/src/clj/clojure/set.clj index 835e6063..af0f65f6 100644 --- a/src/clj/clojure/set.clj +++ b/src/clj/clojure/set.clj @@ -82,7 +82,7 @@ (fn [m [old new]] (if (and (not= old new) (contains? m old)) - (-> m (assoc new (m old)) (dissoc old)) + (-> m (assoc new (get m old)) (dissoc old)) m)) map kmap)) |