default impl of with-meta in AFunction generates forwarding wrapper

1 files changed, 20 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/AFunction.java b/src/jvm/clojure/lang/AFunction.java
index b03e08cd..908d2c38 100644
--- a/src/jvm/clojure/lang/AFunction.java
+++ b/src/jvm/clojure/lang/AFunction.java
@@ -23,6 +23,26 @@ public IPersistentMap meta(){
 	return null;
 }
 
+public IObj withMeta(final IPersistentMap meta){
+	return new RestFn(){
+		protected Object doInvoke(Object args) throws Exception{
+			return AFunction.this.applyTo((ISeq) args);
+		}
+
+		public IPersistentMap meta(){
+			return meta;
+		}
+
+		public IObj withMeta(IPersistentMap meta){
+			return AFunction.this.withMeta(meta);
+		}
+
+		public int getRequiredArity(){
+			return 0;
+		}
+	};
+}
+
 public int compare(Object o1, Object o2){
 	try
 		{