summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2010-03-11 07:38:13 -0500
committerRich Hickey <richhickey@gmail.com>2010-03-11 07:38:13 -0500
commitdc71e66bd8c6f0e918d471a5cdff2655ab90cdb0 (patch)
treeaebd7263949f11a922b0bf79e274f03733bf1e2e
parentdf17f32858eb0b700d21a2a2364a54596f139e89 (diff)
changed isInline to treat arities as predicate IFn, not hardwire set
-rw-r--r--src/jvm/clojure/lang/Compiler.java4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index 881379c4..b484534c 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -5185,8 +5185,8 @@ static public IFn isInline(Object op, int arity) throws Exception{
IFn ret = (IFn) RT.get(v.meta(), inlineKey);
if(ret != null)
{
- IPersistentSet arities = (IPersistentSet) RT.get(v.meta(), inlineAritiesKey);
- if(arities == null || arities.contains(arity))
+ IFn arityPred = (IFn) RT.get(v.meta(), inlineAritiesKey);
+ if(arityPred == null || RT.booleanCast(arityPred.invoke(arity)))
return ret;
}
}