Formatting changes.

semperos · May 31, 2012 · 7b71668 · 7b71668
1 parent bf031f1
commit 7b71668
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/support/src/cljsbuild/crossover.clj b/support/src/cljsbuild/crossover.clj
@@ -103,9 +103,9 @@ to prevent the compiler from reading a half-written file."
   [from-resource to-file]
   (let [temp-file (str to-file ".tmp")]
     (spit temp-file (filtered-crossover-file from-resource))
-    (if-not (fs/rename temp-file to-file)
-	  ;We're on Windows, file can't be renamed atomically 
-	  ;and operation is blocked
+    (when-not (fs/rename temp-file to-file)
+      ; On Windows, if the destination file exists, attempting to replace
+      ; it by renaming a different file will fail.
 	  (do (fs/delete to-file)
 		  (fs/rename temp-file to-file)))
     ; Mark the file as read-only, to hopefully warn the user not to modify it.