diff options
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); + } +}; } |