improved error message for bad arity

1 files changed, 5 insertions, 2 deletions

diff --git a/src/jvm/clojure/lang/AFn.java b/src/jvm/clojure/lang/AFn.java
index eeba3ca4..11db130a 100644
--- a/src/jvm/clojure/lang/AFn.java
+++ b/src/jvm/clojure/lang/AFn.java
@@ -443,7 +443,10 @@ static public Object applyToHelper(IFn ifn, ISeq arglist) throws Exception{
 		}
 }
 
-public static Object throwArity(){
-	throw new IllegalArgumentException("Wrong number of args passed");
+public Object throwArity(){
+	String name =  getClass().getSimpleName();
+	int suffix = name.lastIndexOf("__");
+	throw new IllegalArgumentException("Wrong number of args passed to: "
+	                                   + (suffix == -1?name:name.substring(0,suffix)));
 }
 }