 (defn- get-virtual-dom [x]
   (if x
     (cond
-      (dom-node? x)
-      (when-let [state (get-element-state x)]
-        (get-virtual-dom (.-element-spec state)))
+      (dom-node? x) x
 
       (string? x) x
 


;; Building Elements

(defn insert-child! [parent child before]
  (append-or-insert-child parent child before))

(defn append-child! [parent child]

            (build new-elem-spec))
          (build new-elem-spec))]
    (dispose-node cur-dom-node)
    (do-replace-node parent new-elem cur-dom-node)
    new-elem))

(declare replace-child)
