integrate 1177: fixed with-bindings to not hardwire compile-time compile path20081217

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