                        (.-name r))))
         name1 (if (empty? name) (str (gensym "cloact")) name)]
     (into {} (for [[k v] (assoc fun-map :displayName name1)]
-               [k (get-wrapper k v name)]))))
+               [k (get-wrapper k v name1)]))))
 
 (defn- add-atom-mixin
   [props-map]

        (if (nil? f)
          (not (and (identical? ostate nextstate)
                    (tmpl/equal-args a1 a2)))
          (f a1 a2 ostate nextstate))))

    :componentWillUnmount
    (fn [C]

(when-not -ToExtend
  (.log js/console "this should never happen to " -ToExtend))

;;; Accessors

;; We store the "args" (i.e a vector like [comp props child1])
;; in .-cljsArgs, with optional args, which makes access a bit
;; tricky. The upside is that we don't have to do any allocations.

(defn- args-of [C]
  (-> C .-props .-cljsArgs))
