CLJS-1430: self-host: .toString is emitted as .toString$

Revises js-reserved? to not return true for
things like "toString".

Author: mfikes

src/main/cljs/cljs/core.cljs

@@ -10021,7 +10021,7 @@ Maps become Objects. Arbitrary keys are encoded to by key->js."
     (set! js-reserved
       (reduce #(do (gobject/set %1 %2 true) %1)
         #js {} js-reserved-arr)))
-  (gobject/containsKey js-reserved x))
+  (.hasOwnProperty js-reserved x))
 
 (defn- demunge-pattern []
   (when-not DEMUNGE_PATTERN

src/test/cljs/cljs/core_test.cljs

@@ -2922,6 +2922,14 @@
   (is (= 'cljs.core/first?
          (demunge (munge 'cljs.core/first?)))))
 
+(deftest test-munge
+  (is (= "a_b" (munge "a-b")))
+  (is (= "a_SLASH_b" (munge "a/b")))
+  (is (= "_DOT__DOT_" (munge "..")))
+  (is (= "abstract$" (munge "abstract")))
+  (is (= 'abc (munge 'abc)))
+  (is (= "toString" (munge "toString"))))
+
 (deftest test-uuid-compile-and-runtime-hash
   (is (= (hash (.toString #uuid "0d1f9029-40fc-4728-8bdd-9862172d4370"))
          (hash (.toString (UUID. "0d1f9029-40fc-4728-8bdd-9862172d4370" nil))))))

src/test/self/self_host/test.cljs

@@ -66,7 +66,7 @@
 
 (deftest test-compile-str
   (async done
-    (let [l (latch 3 done)]
+    (let [l (latch 4 done)]
       (cljs/compile-str st "(+ 1 1)"
         (fn [{:keys [error value]}]
           (is (nil? error))
@@ -83,6 +83,12 @@
         (fn [{:keys [error value]}]
           (is (nil? error))
           (is (= "(cljs.core.truth_(cljs.core.first)?1:2)" value))
+          (inc! l)))
+      (cljs/compile-str st "(.toString \"a\")" nil
+        {:context :expr}
+        (fn [{:keys [error value]}]
+          (is (nil? error))
+          (is (= "\"a\".toString()" value))
           (inc! l))))))
 
 (deftest test-eval-str