 
 (defn- dispose-node
   ([dom-node]
-   (println "disposing" dom-node)
-   (time
-     (let [node-id (get-node-id dom-node)
-           state (aget element-state-lookup node-id)]
-       (dispose-node node-id state))))
+   ;(println "disposing" dom-node)
+   (let [node-id (get-node-id dom-node)
+         state (aget element-state-lookup node-id)]
+     (dispose-node node-id state)))
   ([child-key state]
    (when state
      (set! (.-disposed state) true)

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


    node))

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