From 7179e4c759a06a2744f1fc77a25a7b8c8a9a4805 Mon Sep 17 00:00:00 2001 From: Andy Fingerhut Date: Tue, 12 Feb 2013 14:14:05 -0800 Subject: [PATCH] TRDR-1: Correct bad read-char behavior where it returns nil (EOF) on first call for some kinds of input sources. --- src/main/clojure/clojure/tools/reader/reader_types.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/clojure/clojure/tools/reader/reader_types.clj b/src/main/clojure/clojure/tools/reader/reader_types.clj index 9d39e44..e0691a7 100644 --- a/src/main/clojure/clojure/tools/reader/reader_types.clj +++ b/src/main/clojure/clojure/tools/reader/reader_types.clj @@ -46,7 +46,7 @@ (set! buf nil) (char c)) (let [c (.read is)] - (when (>= 0 c) + (when (>= c 0) (char c))))) (peek-char [reader] (when-not buf @@ -119,7 +119,7 @@ Reader (read-char [rdr] (let [c (.read ^java.io.PushbackReader rdr)] - (when (>= 0 c) + (when (>= c 0) (normalize-newline rdr (char c))))) (peek-char [rdr] -- 1.8.0