 (when-not -ToExtend
   (.log js/console "this should never happen to " -ToExtend))
 
-;;; Function wrapping
+;;; 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))

                       (.-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)]))))

(defn- add-atom-mixin
  [props-map]

    (if (or (nil? p) (map? p)) 2 1)))

(defn- cljs-props [C]
  (-> C args-of props-in-args))

(defn- get-children [C]
  (let [args (args-of C)
