[github-17] exclude Xbootclasspath from eval-in-project forking of JVM

This commit is contained in:
Seth Schroeder 2010-02-14 16:38:17 -05:00 committed by Phil Hagelberg
parent 5dcbda0ef7
commit 199d03a34d

View file

@ -129,7 +129,8 @@
(when (or (= :macosx (get-os)) native-path)
(.setFork java true)
(doseq [arg (get-jvm-args)]
(.setValue (.createJvmarg java) arg)))
(when-not (re-matches #"^-Xbootclasspath.+" arg)
(.setValue (.createJvmarg java) arg))))
(.setClassname java "clojure.main")
(.setValue (.createArg java) "-e")
(let [cp (str (.getClasspath (.getCommandLine java)))