Initial version of extend-object. Works.

clojure · Sep 16, 2011 · 63462a3 · 63462a3
1 parent db46aae
commit 63462a3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/cljs/cljs/core.cljs b/src/cljs/cljs/core.cljs
@@ -3220,4 +3220,7 @@ reduces them without incurring seq initialization"
 (defn extend-object
   ""
   [obj fn-map]
-  )
+  (doseq [[key-name f] fn-map]
+    (let [str-name (name key-name)
+          bind-fn (goog.bind f obj)]
+      (js* "~{obj}[~{str-name}] = ~{bind-fn}"))))