summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/jvm/clojure/lang/Var.java8
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);
+ }
+};
}