     state))
 
 (defn- register-with-parent-state [parent-state child-key state]
-  ;;(set! (.-child-states parent-state) (assoc (.-child-states parent-state) child state))
   (let [child-states (or (.-child-states parent-state)
                         (set! (.-child-states parent-state) #js {}))]
     (aset child-states child-key state)))
 
 (defn- unregister-from-parent-state [parent-state child-key]
-  ;;(set! (.-child-states parent-state) (dissoc (.-child-states parent-state) child))
   (when-let [child-states (.-child-states parent-state)]
     (js-delete child-states child-key)))
 


(defn- register-element-with-parent [parent new-elem]
  (when-not (text-node? new-elem)
    (when-let [parent-state (get-element-state parent)]
      (let [state (get-element-state new-elem)]
        (set! (.-parent-state state) parent-state)
        (register-with-parent-state parent-state (get-node-id new-elem) state)))))

          (bind-attr! node k v state))
        (when children
          (append-children! node children))
        (when-let [m (meta virtual-dom)]
          (when-let [node-created (get m :node-created)]
            (node-created node)))
        node))))
