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

Fork unconditionally for now. This helps some things but *breaks* repl.

Browse source 
We need to come up with an alternate approach for the repl task as Ant
simply refuses to implement support for stdin in a forked process:

http://mail-archives.apache.org/mod_mbox/ant-dev/200310.mbox/%3CBAY8-F108GThLvY279700003252@hotmail.com%3E
This commit is contained in:
Phil Hagelberg 2010-05-22 15:22:44 -10:00
parent 23991a2f86
commit c9bd5c6927
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/leiningen/compile.clj
View file

@ -112,12 +112,10 @@
:default native-path))))) :default native-path)))))
(.setClasspath java (apply make-path (get-classpath project))) (.setClasspath java (apply make-path (get-classpath project)))
(.setFailonerror java true) (.setFailonerror java true)
(when (or (:fork project) (:jvm-opts project) (.setFork java true)
(= :macosx (get-os)) native-path) (doseq [arg (get-jvm-args project)]
(.setFork java true) (when-not (re-matches #"^-Xbootclasspath.+" arg)
(doseq [arg (get-jvm-args project)] (.setValue (.createJvmarg java) arg)))
(when-not (re-matches #"^-Xbootclasspath.+" arg)
(.setValue (.createJvmarg java) arg))))
(.setClassname java "clojure.main") (.setClassname java "clojure.main")
(.setValue (.createArg java) "-e") (.setValue (.createArg java) "-e")
(let [cp (str (.getClasspath (.getCommandLine java))) (let [cp (str (.getClasspath (.getCommandLine java)))