Honor init arg in eval-in-project when compiling in-process. Fixes #192.
This commit is contained in:
parent
1a7e9a70aa
commit
249d676719
1 changed files with 4 additions and 2 deletions
|
@ -127,7 +127,9 @@
|
||||||
(concat (get-input-args) (:jvm-opts project) (:jvm-opts (user-settings))))
|
(concat (get-input-args) (:jvm-opts project) (:jvm-opts (user-settings))))
|
||||||
|
|
||||||
(defn get-readable-form [java project form init]
|
(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
|
form `(do ~init
|
||||||
(def ~'*classpath* ~cp)
|
(def ~'*classpath* ~cp)
|
||||||
(set! ~'*warn-on-reflection*
|
(set! ~'*warn-on-reflection*
|
||||||
|
@ -171,7 +173,7 @@
|
||||||
(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 (binding [*warn-on-reflection* (:warn-on-reflection project)]
|
(try (binding [*warn-on-reflection* (:warn-on-reflection project)]
|
||||||
(eval form))
|
(eval (read-string (get-readable-form nil project form init))))
|
||||||
0
|
0
|
||||||
(catch Exception e
|
(catch Exception e
|
||||||
(.printStackTrace e)
|
(.printStackTrace e)
|
||||||
|
|
Loading…
Reference in a new issue