diff options
| -rw-r--r-- | src/jvm/clojure/lang/AFunction.java | 20 |
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 { |