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

improve subselect fix

Browse source
This commit is contained in:
nathanmarz 2017-12-21 23:28:00 -05:00
parent b1050b910c
commit 70d9fef5cc
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -30,7 +30,7 @@
:profiles {:dev {:dependencies :profiles {:dev {:dependencies
[[org.clojure/test.check "0.9.0"] [[org.clojure/test.check "0.9.0"]
[org.clojure/clojure "1.8.0"] [org.clojure/clojure "1.9.0"]
[org.clojure/clojurescript "1.9.229"]]} [org.clojure/clojurescript "1.9.229"]]}
:test {:dependencies [[org.clojure/clojure "1.7.0"]]}} :test {:dependencies [[org.clojure/clojure "1.7.0"]]}}

4
src/clj/com/rpl/specter.cljc
View file

@ -892,10 +892,10 @@
(transform* [this structure next-fn] (transform* [this structure next-fn]
(let [select-result (compiled-select late structure) (let [select-result (compiled-select late structure)
transformed (next-fn select-result) transformed (next-fn select-result)
values-to-insert (i/mutable-cell transformed)] values-to-insert (i/mutable-cell (seq transformed))]
(compiled-transform late (compiled-transform late
(fn [_] (let [vs (i/get-cell values-to-insert)] (fn [_] (let [vs (i/get-cell values-to-insert)]
(if (seq vs) (if vs
(do (i/update-cell! values-to-insert next) (do (i/update-cell! values-to-insert next)
(first vs)) (first vs))
NONE NONE