 (declare build-element)
 
 (defn- text-node? [dom-node]
-  (= (.-nodeType dom-node) 3))
+  (identical? (.-nodeType dom-node) 3))
 
 (defn- replace-child [parent new-elem-spec cur-elem]
   (let [cur-dom-node cur-elem                                       ;;

        [_ tag id class] (re-matches re-tag (name kw))
        node (if tag-ns
               (let [resolved-ns
                     (if (= tag-ns "svg")
                       "http://www.w3.org/2000/svg"
                       (get-xml-namespace tag-ns))]
                 (.createElementNS js/document resolved-ns tag))

    (fn render[frame-ms]
      (reset! frame-time frame-ms)
      (when enable-fps-instrumentation
        (if (identical? instrumentation-i 4)
          (do
            (reset! fps (* 1000 (/ 5 (- frame-ms last-instrumentation-time))))
            (set! instrumentation-i 0))
          (set! instrumentation-i (inc instrumentation-i)))
        (when (identical? 0 instrumentation-i)
          (set! last-instrumentation-time frame-ms)) )
      (let [queue render-queue
            n (alength queue)]
