CLJS-1949: Self-host: cljs.compiler/munge doesn't preserve JVM compiler semantics

Author: anmonteiro

src/main/clojure/cljs/compiler.cljc

@@ -109,7 +109,7 @@
            ss (map rf (string/split ss #"\."))
            ss (string/join "." ss)
            ms #?(:clj (clojure.lang.Compiler/munge ss)
-                 :cljs (cljs.core/munge ss))]
+                 :cljs (cljs.core/munge-str ss))]
        (if (symbol? s)
          (symbol ms)
          ms)))))

src/test/self/self_host/test.cljs

@@ -863,6 +863,20 @@
           (is (false? (:fn-var (var-ast @st 'bar.core$macros/add))))
           (inc! l))))))
 
+(deftest test-cljs-1949
+  (async done
+    (let [st (cljs/empty-state)
+          l (latch 1 done)]
+      (cljs/eval-str
+        st
+        "(.catch (js/Promise. #(%2 \"x\")) #(println %))"
+        nil
+        {:context :expr
+         :eval    node-eval}
+        (fn [{:keys [error] :as m}]
+          (is (nil? error))
+          (inc! l))))))
+
 (defn -main [& args]
   (run-tests))