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

Honor init arg in eval-in-project when compiling in-process. Fixes #192.

Browse source
This commit is contained in:
Phil Hagelberg 2011-04-10 14:52:05 -07:00
parent 1a7e9a70aa
commit 249d676719
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/leiningen/compile.clj
View file

@ -127,7 +127,9 @@
(concat (get-input-args) (:jvm-opts project) (:jvm-opts (user-settings))))
(defn get-readable-form [java project form init]
(let [cp (str (.getClasspath (.getCommandLine java)))
(let [cp (if java
(str (.getClasspath (.getCommandLine java)))
(System/getProperty "java.class.path"))
form `(do ~init
(def ~'*classpath* ~cp)
(set! ~'*warn-on-reflection*
@ -171,7 +173,7 @@
(System/setProperty "clojure.debug" "true"))
;; need to at least pretend to return an exit code
(try (binding [*warn-on-reflection* (:warn-on-reflection project)]
(eval form))
(eval (read-string (get-readable-form nil project form init))))
0
(catch Exception e
(.printStackTrace e)