public
Created

debug version of eval-in-subprocess

  • Download Gist
tmp.clj
Clojure
1 2 3 4 5 6 7 8 9 10 11 12 13 14
(defn eval-in-subprocess [project form-string]
(let [command `(~(or (System/getenv "JAVA_CMD") "java")
"-cp" ~(get-classpath-string project)
~@(get-jvm-args project)
"clojure.main" "-e" ~form-string)]
(let [cp (get-classpath-string project)]
(println (type cp) ": " cp))
(println "---")
(let [args (get-jvm-args project)]
(println (type args) ": " args))
(println "---")
(println (type form-string) form-string)
(println "---")
(apply sh command)))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.