CLJS-2122: Self-host: Non-symbol ns names dumped into env

Author: mfikes

src/main/cljs/cljs/js.cljs

@@ -924,7 +924,8 @@
                    (when (:source-map opts)
                      (append-source-map env/*compiler*
                        aname source sb @comp/*source-map-data* opts))
-                   (ana/dump-specs aname)
+                   (when (symbol? aname)
+                     (ana/dump-specs aname))
                    (let [js-source (.toString sb)
                          evalm     {:lang   :clj
                                     :name   name

src/test/self/self_host/test.cljs

@@ -891,6 +891,31 @@
           (is (nil? error))
           (inc! l))))))
 
+(deftest test-cljs-2122
+  (async done
+    (let [st (cljs/empty-state)
+          l (latch 2 done)]
+      (cljs/eval-str
+        st
+        "1"
+        nil
+        {:context :expr
+         :eval node-eval}
+        (fn [{:keys [error] :as m}]
+          (is (nil? error))
+          (is (every? symbol? (keys (get-in @st [:cljs.analyzer/namespaces]))))
+          (inc! l)))
+      (cljs/eval-str
+        st
+        "1"
+        "A string name"
+        {:context :expr
+         :eval node-eval}
+        (fn [{:keys [error] :as m}]
+          (is (nil? error))
+          (is (every? symbol? (keys (get-in @st [:cljs.analyzer/namespaces]))))
+          (inc! l))))))
+
 (defn -main [& args]
   (run-tests))