debug windows module expansion

Author: swannodette

src/main/clojure/cljs/module_graph.cljc

@@ -345,24 +345,25 @@
                            getAbsoluteFile getPath))]
       (case optimizations
         :none
-        (into {}
-          (map
-            (fn [[module-name {:keys [entries] :as module}]]
-              [module-name
-               (into []
-                 (comp
-                   (mapcat #(find-sources-for-module-entry % inputs))
-                   (map
-                     (comp get-uri get-rel-path
-                       (fn [{:keys [out-file] :as ijs}]
-                         (if-not out-file
-                           (throw (util/compilation-error (Exception. (str "No :out-file for IJavaScript " (pr-str ijs)))))
-                           out-file))
-                       #(maybe-add-out-file % opts)))
-                   (distinct))
-                 entries)]))
+        (do
           (util/debug-prn "MODULES:" modules "INPUTS:" inputs)
-          (expand-modules modules inputs))
+          (into {}
+            (map
+              (fn [[module-name {:keys [entries] :as module}]]
+                [module-name
+                 (into []
+                   (comp
+                     (mapcat #(find-sources-for-module-entry % inputs))
+                     (map
+                       (comp get-uri get-rel-path
+                         (fn [{:keys [out-file] :as ijs}]
+                           (if-not out-file
+                             (throw (util/compilation-error (Exception. (str "No :out-file for IJavaScript " (pr-str ijs)))))
+                             out-file))
+                         #(maybe-add-out-file % opts)))
+                     (distinct))
+                   entries)]))
+            (expand-modules modules inputs)))
         (:advanced :simple :whitespace)
         (reduce-kv
           (fn [ret k {:keys [output-to]}]