diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 876aa121..3c1737f9 100644 --- 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" |