Fix repl for :eval-in-project projects.
This commit is contained in:
parent
6e7aa2629c
commit
9cd4dc45f5
2 changed files with 3 additions and 1 deletions
|
@ -169,7 +169,8 @@
|
||||||
(when (:debug project)
|
(when (:debug project)
|
||||||
(System/setProperty "clojure.debug" "true"))
|
(System/setProperty "clojure.debug" "true"))
|
||||||
;; need to at least pretend to return an exit code
|
;; need to at least pretend to return an exit code
|
||||||
(try (eval form)
|
(try (binding [*warn-on-reflection* (:warn-on-reflection project)]
|
||||||
|
(eval form))
|
||||||
0
|
0
|
||||||
(catch Exception e
|
(catch Exception e
|
||||||
(.printStackTrace e)
|
(.printStackTrace e)
|
||||||
|
|
|
@ -89,6 +89,7 @@
|
||||||
(.start (Thread. #(copy-out-loop reader)))
|
(.start (Thread. #(copy-out-loop reader)))
|
||||||
(loop [reader reader, writer writer]
|
(loop [reader reader, writer writer]
|
||||||
(let [input (read-line)]
|
(let [input (read-line)]
|
||||||
|
;; TODO: ^D is not being honored
|
||||||
(when (and input (not= "" input))
|
(when (and input (not= "" input))
|
||||||
(.write writer (str input "\n"))
|
(.write writer (str input "\n"))
|
||||||
(.flush writer)
|
(.flush writer)
|
||||||
|
|
Loading…
Reference in a new issue