diff options
author | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-19 21:16:31 -0400 |
---|---|---|
committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-20 21:26:35 -0400 |
commit | 9c367ff0e3848482b441f3119dc4ad1c400baaf2 (patch) | |
tree | d575d46e34c2f55e9b0292c60fc6090887ca0db9 /src | |
parent | 56dd2cd8714e30d85a215d520b0248f4783fbbbd (diff) |
clear macro meta #352
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'src')
-rw-r--r-- | src/jvm/clojure/lang/Var.java | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/jvm/clojure/lang/Var.java b/src/jvm/clojure/lang/Var.java index ca429749..12114222 100644 --- a/src/jvm/clojure/lang/Var.java +++ b/src/jvm/clojure/lang/Var.java @@ -240,7 +240,7 @@ synchronized public void bindRoot(Object root){ this.root = root; try { - alterMeta(assoc, RT.list(macroKey, RT.F)); + alterMeta(dissoc, RT.list(macroKey)); } catch (Exception e) { @@ -488,4 +488,10 @@ static IFn assoc = new AFn(){ return RT.assoc(m, k, v); } }; +static IFn dissoc = new AFn() { + @Override + public Object invoke(Object c, Object k) throws Exception { + return RT.dissoc(c, k); + } +}; } |