Permalink
Browse files

Bind *compile-path*, not sure how it becomes unbound.

  • Loading branch information...
1 parent 6aebd55 commit 3413b16b2ab217f273383695f9e29654efc1ca9a @technomancy committed Nov 3, 2009
Showing with 7 additions and 4 deletions.
  1. +7 −4 src/leiningen/compile.clj
@@ -7,7 +7,10 @@
"Compile the namespaces specified in build.clj or all namespaces in src/
if none are provided."
[project]
- (.mkdir (file (:root project) "classes"))
- (doseq [n (or (:namespaces project)
- (find-namespaces-in-dir (file (:root project) "src")))]
- (compile n)))
+ ;; TODO: not sure why this is necessary
+ (binding [*compile-path* "classes/"]
+ (.mkdir (file (:root project) "classes"))
+ (doseq [n (or (:namespaces project)
+ (find-namespaces-in-dir (file (:root project) "src")))]
+ (println "Compiling" n)
+ (clojure.core/compile n))))

0 comments on commit 3413b16

Please sign in to comment.