diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/test_contrib/walk.clj | 2 | ||||
| -rw-r--r-- | src/clojure/contrib/walk.clj | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/test_contrib/walk.clj b/src/clojure/contrib/test_contrib/walk.clj index a59b2279..2fb36d4e 100644 --- a/src/clojure/contrib/test_contrib/walk.clj +++ b/src/clojure/contrib/test_contrib/walk.clj @@ -29,6 +29,6 @@ [1 2 {:a 3} (list 4 [5])]) @a) [1 2 - {} :a 3 [:a 3] {:a 3} + :a 3 [:a 3] {:a 3} 4 5 [5] (list 4 [5]) [1 2 {:a 3} (list 4 [5])]])))
\ No newline at end of file diff --git a/src/clojure/contrib/walk.clj b/src/clojure/contrib/walk.clj index 0352aeb2..525fe5a7 100644 --- a/src/clojure/contrib/walk.clj +++ b/src/clojure/contrib/walk.clj @@ -55,9 +55,9 @@ the sorting function."} (list? form) (outer (apply list (map inner form))) (seq? form) (outer (doall (map inner form))) (vector? form) (outer (vec (map inner form))) - (map? form) (outer (into (outer (if (sorted? form) (sorted-map) {})) + (map? form) (outer (into (if (sorted? form) (sorted-map) {}) (map inner form))) - (set? form) (outer (into (outer (if (sorted? form) (sorted-set) #{})) + (set? form) (outer (into (if (sorted? form) (sorted-set) #{}) (map inner form))) :else (outer form))) |