diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-06-23 12:09:56 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-06-23 12:09:56 -0400 |
| commit | 3cadf1436bcd69d4a001a650187e0e47806f5556 (patch) | |
| tree | 60368e4b0afc9bacd9d7a29e85320c6f0905f9bc /src | |
| parent | 324167ff7bc016f6da542cabf7dc43655b9b4638 (diff) | |
walk.clj: removed redundant call to outer fn
Also updated test_contrib/walk.clj for new behavior.
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))) |