added vary-meta

bwanab · Jan 22, 2009 · 92a2a04 · 92a2a04
1 parent 3c9ebfc
commit 92a2a04
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -378,6 +378,12 @@
   [#^clojure.lang.IFn f & args]
     (. f (applyTo (spread args))))
 
+(defn vary-meta
+ "Returns an object of the same type and value as obj, with
+  (apply f (meta obj) args) as its metadata."
+ [obj f & args]
+  (with-meta obj (apply f (meta obj) args)))
+
 (defn list*
   "Creates a new list containing the item prepended to more."
   [item & more]