diff options
| -rw-r--r-- | src/jvm/clojure/lang/LispReader.java | 11 |
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; |