yogsototh/freactive
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix for issue with try-diff-subseq.

Browse source
This commit is contained in:
Aaron Craelius 2014-11-28 14:19:01 -05:00
parent 2c8eae3517
commit 7b552e01a4
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/clojure/freactive/dom.cljs
View file

@ -577,19 +577,17 @@
(defn- try-diff-subseq [parent cur-child new-children]
(loop [cur-child cur-child
new-child (first new-children)
more (rest new-children)]
[new-child & more :as new-children] new-children]
(if new-child
(if cur-child
(if (and (sequential? new-child) (not (keyword? (first new-child))))
(let [cur-child (try-diff-subseq parent cur-child new-child)]
(recur cur-child (first more) (rest more)))
(recur cur-child more))
(let [next-sib (.-nextSibling cur-child)]
(replace-child parent new-child cur-child false)
(recur next-sib (first more) (rest more))))
(recur next-sib more)))
(do
(append-child! parent new-child)
(append-children! parent more)
(append-children! parent new-children)
nil))
cur-child)))