summaryrefslogtreecommitdiff
path: root/src/jvm
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2009-11-15 15:40:11 -0500
committerRich Hickey <richhickey@gmail.com>2009-11-15 15:40:11 -0500
commit3682e8823c429debf435b4830eba2ea0680b37b3 (patch)
treed531487226b0363628621e50bc3922018a0a1d60 /src/jvm
parentecd7161bf4397f04385fdaf9e5c6168580676ffa (diff)
got rid of :on interface
Diffstat (limited to 'src/jvm')
-rw-r--r--src/jvm/clojure/lang/Compiler.java8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index 24ccd87b..d9eeb7f1 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -2701,12 +2701,8 @@ static class InvokeExpr implements Expr{
Var pvar = (Var)RT.get(((VarExpr)fexpr).var.meta(), protocolKey);
if(pvar != null)
{
- IPersistentMap proto = (IPersistentMap) pvar.get();
- if(proto.valAt(onKey) == null)
- {
- this.isProtocol = true;
- this.siteIndex = registerProtocolCallsite(((VarExpr)fexpr).var);
- }
+ this.isProtocol = true;
+ this.siteIndex = registerProtocolCallsite(((VarExpr)fexpr).var);
}
}
this.tag = tag != null ? tag : (fexpr instanceof VarExpr ? ((VarExpr) fexpr).tag : null);