       child-states
       (fn [child-state child-key _]
         (when (identical? (aget child-key 0) "-")
-          ;; (println "disposing attr" child-key)
+          (println "disposing attr" child-key)
           (.push to-remove child-key)
           (set! (.-disposed child-state) true)
           (when-let [cb (.-disposed-callback child-state)]

       (when-let [child-states (.-child-states parent-state)]
         (js-delete child-states node-id)))))
  ([child-key state]
   ;; (println "disposing" child-key)
   (when state
     (set! (.-disposed state) true)
     (when-let [disposed-callback (.-disposed-callback state)]


(defn- dispose-node
  ([dom-node]
   (println "disposing" dom-node)
   (when-let [state                                       ;;(aget element-state-lookup node-id)
              (get-element-state dom-node)]
     (dispose-node (.-id state) state)
