     node))
 
 (defn mount! [element child]
-  (when-let [last-child (.-lastChild (get-dom-node element))]
+  (when-let [last-child (.-lastChild element
+                        ;; (get-dom-node element)
+                          )]
     (remove! last-child))
   (append-child! element child))

(defn- append-child [parent new-elem]
  (let [new-elem (build-element new-elem)]
    (.appendChild
      (get-dom-node parent)
      new-elem)
    new-elem))


        cur-elem)
      (let [new-elem (build-element new-elem-spec)]
        (.replaceChild
          ;(get-dom-node parent)
          ;(get-dom-node new-elem)
          parent
          new-elem
          cur-dom-node)
        (dispose-node cur-dom-node)
        new-elem))))
