From 02af651a66c00bef994ab881177007d94f63dba5 Mon Sep 17 00:00:00 2001 From: scgilardi Date: Tue, 2 Dec 2008 20:37:33 +0000 Subject: repl-ln.clj: only set compiler line before a Lisp Reader read --- src/clojure/contrib/repl_ln.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/clojure/contrib/repl_ln.clj b/src/clojure/contrib/repl_ln.clj index cee7882b..7fe8c1ee 100644 --- a/src/clojure/contrib/repl_ln.clj +++ b/src/clojure/contrib/repl_ln.clj @@ -117,9 +117,11 @@ (do (print (repl-prompt)) (flush) - (var-set Compiler/LINE (.getLineNumber *in*)) (recur (skip-whitespace *in*))) - :else (read *in* false eof)))) + :else + (do + (var-set Compiler/LINE (.getLineNumber *in*)) + (read *in* false eof))))) ;; Public -- cgit v1.2.3-70-g09d2