Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Force strictness on crossover copying code.

  • Loading branch information...
commit 0b08bfc2a38c89babb33509e5e99ade2bfe75bbd 1 parent 3145d62
Evan Mezeske emezeske authored
Showing with 5 additions and 2 deletions.
  1. +5 −2 src/cljsbuild/core.clj
7 src/cljsbuild/core.clj
View
@@ -80,14 +80,17 @@
(fs/delete file)
:updated))))
+(defmacro dofor [seq-exprs body-expr]
+ `(doall (for ~seq-exprs ~body-expr)))
+
(defn- copy-crossovers [crossovers]
- (for [{:keys [from-dir to-dir]} crossovers]
+ (dofor [{:keys [from-dir to-dir]} crossovers]
(let [from-files (find-cljs from-dir #{"clj"})
to-files (map (partial crossover-to from-dir to-dir) from-files)]
(fs/mkdirs to-dir)
(concat
(delete-extraneous-files to-files to-dir)
- (for [[from-file to-file] (zipmap from-files to-files)]
+ (dofor [[from-file to-file] (zipmap from-files to-files)]
(when
(or
(not (fs/exists? to-file))
Please sign in to comment.
Something went wrong with that request. Please try again.