* src/clj/cljs/core.clj: use Michal Marczyk's this patch for IFn

swannodette · swannodette · commit 7cee8abeba27 · 2012-02-19T23:04:43.000-05:00
diff --git a/src/clj/cljs/core.clj b/src/clj/cljs/core.clj
@@ -246,10 +246,12 @@
                                                   pf (if ifn?
                                                        (str prototype-prefix 'call)
                                                        (str prototype-prefix pprefix f))
-                                                  adapt-params (fn [[[tname :as args] & body]]
-                                                                 `(~args
-                                                                   (let [~tname (~'js* "this")]
-                                                                     ~@body)))
+                                                  adapt-params (fn [[[targ & args :as sig] & body]]
+                                                                 (let [tsym (gensym "tsym")]
+                                                                   `(~(with-meta (vec (cons tsym args)) (meta sig))
+                                                                     (this-as ~tsym
+                                                                              (let [~targ ~tsym]
+                                                                                ~@body)))))
                                                   meths (if ifn?
                                                           (map adapt-params meths)
                                                           meths)]
