diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-12-02 20:37:33 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-12-02 20:37:33 +0000 |
| commit | 02af651a66c00bef994ab881177007d94f63dba5 (patch) | |
| tree | 08b0227a7b9c5dac9f230d8215c6a49cef3924c6 | |
| parent | 4763b89ae48263299ffba1df115e635d1192c332 (diff) | |
repl-ln.clj: only set compiler line before a Lisp Reader read
| -rw-r--r-- | src/clojure/contrib/repl_ln.clj | 6 |
1 files changed, 4 insertions, 2 deletions
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 |