luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix #128

Browse source
This commit is contained in:
Nathan Marz 2016-06-21 18:38:00 -04:00
parent 96ad0ff68c
commit 9ff9ef6650
3 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CHANGES.md
View file

@ -13,6 +13,7 @@
* Added low-level `richnav` macro for creating navigators with full flexibility * Added low-level `richnav` macro for creating navigators with full flexibility
* Bug fix: multi-path and if-path now work properly with value collection * Bug fix: multi-path and if-path now work properly with value collection
* Bug fix: END, BEGINNING, FIRST, LAST, and MAP-VALS now work properly on nil * Bug fix: END, BEGINNING, FIRST, LAST, and MAP-VALS now work properly on nil
* Bug fix: ALL and MAP-VALS now maintain the comparator of sorted maps
## 0.11.2 ## 0.11.2
* Renamed com.rpl.specter.transient namespace to com.rpl.specter.transients to eliminate ClojureScript compiler warning about reserved keyword * Renamed com.rpl.specter.transient namespace to com.rpl.specter.transients to eliminate ClojureScript compiler warning about reserved keyword

4
src/clj/com/rpl/specter/impl.cljx
View file

@ -861,7 +861,7 @@
#+clj clojure.lang.PersistentTreeMap #+cljs cljs.core/PersistentTreeMap #+clj clojure.lang.PersistentTreeMap #+cljs cljs.core/PersistentTreeMap
(all-transform [structure next-fn] (all-transform [structure next-fn]
(non-transient-map-all-transform structure next-fn (sorted-map)) (non-transient-map-all-transform structure next-fn (empty structure))
) )
#+clj clojure.lang.PersistentHashMap #+cljs cljs.core/PersistentHashMap #+clj clojure.lang.PersistentHashMap #+cljs cljs.core/PersistentHashMap
@ -963,7 +963,7 @@
#+clj clojure.lang.PersistentTreeMap #+cljs cljs.core/PersistentTreeMap #+clj clojure.lang.PersistentTreeMap #+cljs cljs.core/PersistentTreeMap
(map-vals-transform [structure next-fn] (map-vals-transform [structure next-fn]
(map-vals-non-transient-transform structure (sorted-map) next-fn) (map-vals-non-transient-transform structure (empty structure) next-fn)
) )
#+clj clojure.lang.PersistentHashMap #+cljs cljs.core/PersistentHashMap #+clj clojure.lang.PersistentHashMap #+cljs cljs.core/PersistentHashMap

6
test/com/rpl/specter/core_test.cljx
View file

@ -1295,3 +1295,9 @@
(select [(s/multi-path (s/collect-one :a) (s/collect-one :c)) :b] (select [(s/multi-path (s/collect-one :a) (s/collect-one :c)) :b]
{:a 1 :b 2 :c 3}))) {:a 1 :b 2 :c 3})))
) )
(deftest sorted-map-by-transform
(let [amap (sorted-map-by > 1 10 2 20 3 30)]
(is (= [3 2 1] (keys (transform s/MAP-VALS inc amap))))
(is (= [3 2 1] (keys (transform [s/ALL s/LAST] inc amap))))
))