yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix repl for :eval-in-project projects.

Browse source
This commit is contained in:
Phil Hagelberg 2011-03-02 22:12:04 -08:00
parent 6e7aa2629c
commit 9cd4dc45f5
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/leiningen/compile.clj
View file

@ -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)

1
src/leiningen/repl.clj
View file

@ -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)