temporary fix to the process JS modules issue at the REPL

Author: dnolen

src/main/clojure/cljs/repl.cljc

@@ -817,6 +817,8 @@
                         (catch Throwable e
                           (caught e repl-env opts)
                           opts))))
+             ;; TODO: consider alternative ways to deal with JS module processing at REPL
+             opts' opts ;; need to save opts prior to JS module processing for watch
              opts (if (or (:libs opts) (:foreign-libs opts))
                     (let [opts (cljsc/process-js-modules opts)]
                       (swap! env/*compiler* assoc :js-dependency-index (deps/js-dependency-index opts))
@@ -863,21 +865,23 @@
                  (init)
                  (catch Throwable e
                    (caught e repl-env opts)))
-               (when-let [src (:watch opts)]
-                 (.start
-                   (Thread.
-                     ((ns-resolve 'clojure.core 'binding-conveyor-fn)
-                       (fn []
-                         (let [log-file (io/file (util/output-directory opts) "watch.log")]
-                           (err-out (println "Watch compilation log available at:" (str log-file)))
-                           (try
-                             (let [log-out (FileWriter. log-file)]
-                               (binding [*err* log-out
-                                         *out* log-out]
-                                 (cljsc/watch src (dissoc opts :watch)
-                                   env/*compiler* done?)))
-                             (catch Throwable e
-                               (caught e repl-env opts)))))))))
+               ;; TODO: consider alternative ways to deal with JS module processing at REPL
+               (let [opts opts'] ;; use opts prior to JS module processing
+                 (when-let [src (:watch opts)]
+                   (.start
+                     (Thread.
+                       ((ns-resolve 'clojure.core 'binding-conveyor-fn)
+                         (fn []
+                           (let [log-file (io/file (util/output-directory opts) "watch.log")]
+                             (err-out (println "Watch compilation log available at:" (str log-file)))
+                             (try
+                               (let [log-out (FileWriter. log-file)]
+                                 (binding [*err* log-out
+                                           *out* log-out]
+                                   (cljsc/watch src (dissoc opts :watch)
+                                     env/*compiler* done?)))
+                               (catch Throwable e
+                                 (caught e repl-env opts))))))))))
                ;; let any setup async messages flush
                (Thread/sleep 50)
                (binding [*in* (if (true? (:source-map-inline opts))