Here is the actual fix intended in the last commit.

This commit is contained in:
Aaron Craelius 2014-11-27 14:05:04 -05:00
parent fda4d337fd
commit bb8de6dabb

View file

@ -732,7 +732,7 @@
(set! (.-cur-element cur) nil) (set! (.-cur-element cur) nil)
cur-elem) cur-elem)
cur)] cur)]
(if-let [parent parent] (if-let [parent (or (when-not cur parent) (.-parentNode cur))]
(let [new-node (if cur (let [new-node (if cur
(replace-child* parent new-elem cur true) (replace-child* parent new-elem cur true)
(insert-child* parent new-elem before))] (insert-child* parent new-elem before))]