Add "starting at <line>" to readDelimitedList EOF errors

Refs #249
Signed-off-by: Chouser <chouser@n01se.net>

1 files changed, 10 insertions, 1 deletions

diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java
index 9589472f..91a854e7 100644
--- a/src/jvm/clojure/lang/LispReader.java
+++ b/src/jvm/clojure/lang/LispReader.java
@@ -1048,6 +1048,10 @@ public static class UnreadableReader extends AFn{
 }
 
 public static List readDelimitedList(char delim, PushbackReader r, boolean isRecursive) throws Exception{
+	final int firstline =
+		(r instanceof LineNumberingPushbackReader) ?
+		((LineNumberingPushbackReader) r).getLineNumber() : -1;
+
 	ArrayList a = new ArrayList();
 
 	for(; ;)
@@ -1058,7 +1062,12 @@ public static List readDelimitedList(char delim, PushbackReader r, boolean isRec
 			ch = r.read();
 
 		if(ch == -1)
-			throw new Exception("EOF while reading");
+			{
+			if(firstline < 0)
+				throw new Exception("EOF while reading");
+			else
+				throw new Exception("EOF while reading, starting at line " + firstline);
+			}
 
 		if(ch == delim)
 			break;