fix cast in read-line [issue 82], patch from Chouser/Trolard

bwanab · Mar 3, 2009 · 7dc9d66 · 7dc9d66
1 parent f53b883
commit 7dc9d66
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -2094,7 +2094,10 @@
 
 (defn read-line
   "Reads the next line from stream that is the current value of *in* ."
-  [] (. #^java.io.BufferedReader *in* (readLine)))
+  []
+  (if (instance? clojure.lang.LineNumberingPushbackReader *in*)
+    (.readLine #^clojure.lang.LineNumberingPushbackReader *in*)
+    (.readLine #^java.io.BufferedReader *in*)))
 
 (defn read-string
   "Reads one object from the string s"