Skip to content
Browse files

fix column off-by-one

  • Loading branch information...
1 parent 7d92c05 commit 65b5f73a9be30669116fcddb6ced9e60680532e5 @richhickey richhickey committed Oct 7, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/jvm/clojure/lang/LispReader.java
View
4 src/jvm/clojure/lang/LispReader.java
@@ -718,7 +718,7 @@ public Object invoke(Object reader, Object caret) {
if(r instanceof LineNumberingPushbackReader)
{
line = ((LineNumberingPushbackReader) r).getLineNumber();
- column = ((LineNumberingPushbackReader) r).getColumnNumber();
+ column = ((LineNumberingPushbackReader) r).getColumnNumber()-1;
}
Object meta = read(r, true, null, true);
if(meta instanceof Symbol || meta instanceof String)
@@ -974,7 +974,7 @@ public Object invoke(Object reader, Object leftparen) {
if(r instanceof LineNumberingPushbackReader)
{
line = ((LineNumberingPushbackReader) r).getLineNumber();
- column = ((LineNumberingPushbackReader) r).getColumnNumber();
+ column = ((LineNumberingPushbackReader) r).getColumnNumber()-1;
}
List list = readDelimitedList(')', r, true);
if(list.isEmpty())

0 comments on commit 65b5f73

Please sign in to comment.
Something went wrong with that request. Please try again.