added withMeta

1 files changed, 7 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/PersistentStructMap.java b/src/jvm/clojure/lang/PersistentStructMap.java
index 2206e6b4..3ceba52c 100644
--- a/src/jvm/clojure/lang/PersistentStructMap.java
+++ b/src/jvm/clojure/lang/PersistentStructMap.java
@@ -78,6 +78,13 @@ PersistentStructMap(IPersistentMap meta, IPersistentMap keys, Object[] vals, IPe
 	this.vals = vals;
 }
 
+
+public Obj withMeta(IPersistentMap meta){
+	if(meta == _meta)
+		return this;
+	return new PersistentStructMap(meta, keyslots, vals, ext);
+}
+
 public boolean containsKey(Object key){
 	return keyslots.containsKey(key) || ext.containsKey(key);
 }