     (if (or (nil? p) (map? p)) 2 1)))
 
 (defn- cljs-props [C]
-  (-> (args-of C) props-in-args))
+  (-> C args-of props-in-args))
 
 (defn- get-children [C]
   (let [args (args-of C)

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

;;; Function wrapping

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

        (if (nil? f)
          (not (and (identical? ostate nextstate)
                    (tmpl/equal-args a1 a2)))
          ;; Call f with oldprops, newprops, oldstate, newstate
          (f (props-in-args a1) (props-in-args a2)
             ostate nextstate))))

    :componentWillUnmount
    (fn [C]
