 (defn- unregister-from-parent-state [parent-state child-key]
   (when-let [child-states (.-child-states parent-state)]
     (js-delete child-states child-key)))
-
-(defn- reset-element-spec! [dom-node spec]
-  (set! (.-element-spec (get-element-state dom-node)) spec))
 
 (defprotocol IRemove
   (-remove! [x]))

      cur-child)))

(defn- try-diff [parent vdom cur-dom-node top-level]
  (let [cur-vdom (get-virtual-dom cur-dom-node)
        ;;vdom (normalize-virtual-element vdom)
        ]
    (if (keyword-identical? (first vdom) (first cur-vdom))

                (let [next-sib (.-nextSibling cur-child)]
                  (remove-dom-node cur-child)
                  (recur next-sib)))))
          ()
          cur-dom-node))
      (do
        ;(println "build hit" (first vdom) (first cur-vdom))
