Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

…ile path
  • Loading branch information...
commit b5d73a47bed61bc913b00b201d96fea264d31bf1 1 parent 437ff9b
@richhickey richhickey authored
Showing with 12 additions and 14 deletions.
  1. +12 −14 src/clj/clojure/main.clj
View
26 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
Please sign in to comment.
Something went wrong with that request. Please try again.