extend List & Vector to new Compilable method -find-sources

change cljs.analyzer/parse-ns so that it can take a sequential list of forms

change cljs.closure/compile-sources to handle List & Vector Compilable
cases

fixes browser REPL

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -2694,38 +2694,44 @@
                         (or (when (contains? opts :load-macros)
                               (:load-macros opts))
                           false)]
-                (with-open [rdr (io/reader src)]
-                  (loop [forms (forms-seq* rdr (source-path src))]
-                    (if (seq forms)
-                      (let [env (empty-env)
-                            ast (no-warn (analyze env (first forms) nil opts))]
-                        (if (= :ns (:op ast))
-                          (let [ns-name (:name ast)
-                                ns-name (if (and (= 'cljs.core ns-name)
-                                                 (= "cljc" (util/ext src)))
-                                          'cljs.core$macros
-                                          ns-name)
-                                deps    (merge (:uses ast) (:requires ast))]
-                            (.close ^Reader rdr)
-                            [(merge
-                               {:ns          (or ns-name 'cljs.user)
-                                :provides    [ns-name]
-                                :requires    (if (= 'cljs.core ns-name)
-                                               (set (vals deps))
-                                               (cond-> (conj (set (vals deps)) 'cljs.core)
-                                                 (get-in compiler-env [:options :emit-constants])
-                                                 (conj 'constants-table)))
-                                :file        dest
-                                :source-file src
-                                :ast         ast
-                                :macros-ns   (or (:macros-ns opts)
-                                                 (= 'cljs.core$macros ns-name))}
-                               (when (and dest (.exists ^File dest))
-                                 {:lines (with-open [reader (io/reader dest)]
-                                           (-> reader line-seq count))}))
-                             @env/*compiler*])
-                          (recur (rest forms))))
-                      (throw (AssertionError. (str "No ns form found in " src)))))))]
+                (let [rdr (when-not (sequential? src) (io/reader src))]
+                  (try
+                    (loop [forms (if rdr
+                                   (forms-seq* rdr (source-path src))
+                                   src)]
+                      (if (seq forms)
+                        (let [env (empty-env)
+                              ast (no-warn (analyze env (first forms) nil opts))]
+                          (if (= :ns (:op ast))
+                            (let [ns-name (:name ast)
+                                  ns-name (if (and (= 'cljs.core ns-name)
+                                                   (= "cljc" (util/ext src)))
+                                            'cljs.core$macros
+                                            ns-name)
+                                  deps (merge (:uses ast) (:requires ast))]
+                              [(merge
+                                 {:ns           (or ns-name 'cljs.user)
+                                  :provides     [ns-name]
+                                  :requires     (if (= 'cljs.core ns-name)
+                                                  (set (vals deps))
+                                                  (cond-> (conj (set (vals deps)) 'cljs.core)
+                                                          (get-in compiler-env [:options :emit-constants])
+                                                          (conj 'constants-table)))
+                                  :file         dest
+                                  :source-file  (when rdr src)
+                                  :source-forms (when-not rdr src)
+                                  :ast          ast
+                                  :macros-ns    (or (:macros-ns opts)
+                                                    (= 'cljs.core$macros ns-name))}
+                                 (when (and dest (.exists ^File dest))
+                                   {:lines (with-open [reader (io/reader dest)]
+                                             (-> reader line-seq count))}))
+                               @env/*compiler*])
+                            (recur (rest forms))))
+                        (throw (AssertionError. (str "No ns form found in " src)))))
+                    (finally
+                      (when rdr
+                        (.close ^Reader rdr))))))]
           (when (false? (:restore opts))
             (swap! env/*compiler*
               (fn [old-state]

src/main/clojure/cljs/closure.clj

@@ -507,15 +507,17 @@
   clojure.lang.PersistentList
   (-compile [this opts]
     (compile-form-seq [this]))
-  ; FIXME: -find-sources
+  (-find-sources [this opts]
+    [(ana/parse-ns [this] opts)])
 
   String
   (-compile [this opts] (-compile (io/file this) opts))
   (-find-sources [this opts] (-find-sources (io/file this) opts))
 
   clojure.lang.PersistentVector
   (-compile [this opts] (compile-form-seq this))
-  ; FIXME: -find-sources
+  (-find-sources [this opts]
+    [(ana/parse-ns this opts)])
   )
 
 (comment
@@ -750,7 +752,8 @@
         (for [ns-info inputs]
           ; TODO: compile-file calls parse-ns unnecessarily to get ns-info
           ; TODO: we could mark dependent namespaces for recompile here
-          (-compile (:source-file ns-info)
+          (-compile (or (:source-file ns-info)
+                        (:source-forms ns-info))
                     ; - ns-info -> ns -> cljs file relpath -> js relpath
                     (merge opts {:output-file (comp/rename-to-js (util/ns->relpath (:ns ns-info)))})))))))