diff options
| -rw-r--r-- | src/clj/clojure/main.clj | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/src/clj/clojure/main.clj b/src/clj/clojure/main.clj index 52b49eff..527beb7e 100644 --- a/src/clj/clojure/main.clj +++ b/src/clj/clojure/main.clj @@ -16,20 +16,18 @@ "Executes body in the context of thread-local bindings for several vars that often need to be set!" [& body] - (let [compile-path - (System/getProperty "clojure.compile.path" "classes")] - `(binding [*ns* *ns* - *warn-on-reflection* *warn-on-reflection* - *print-meta* *print-meta* - *print-length* *print-length* - *print-level* *print-level* - *compile-path* ~compile-path - *command-line-args* *command-line-args* - *1 nil - *2 nil - *3 nil - *e nil] - ~@body))) + `(binding [*ns* *ns* + *warn-on-reflection* *warn-on-reflection* + *print-meta* *print-meta* + *print-length* *print-length* + *print-level* *print-level* + *compile-path* (System/getProperty "clojure.compile.path" "classes") + *command-line-args* *command-line-args* + *1 nil + *2 nil + *3 nil + *e nil] + ~@body)) (defn- root-cause "Returns the initial cause of an exception or error by peeling off all of |