CLJS-2282: Some valid keywords are strings in JS object literals

Author: mfikes

src/main/cljs/cljs/core.cljs

@@ -9636,7 +9636,7 @@ reduces them without incurring seq initialization"
           (-write writer "#js ")
           (print-map
             (map (fn [k]
-                   [(cond-> k (some? (re-matches #"[A-Za-z][\w\*\+\?!\-']*" k)) keyword) (unchecked-get obj k)])
+                   [(cond-> k (some? (re-matches #"[A-Za-z_\*\+\?!\-'][\w\*\+\?!\-']*" k)) keyword) (unchecked-get obj k)])
               (js-keys obj))
             pr-writer writer opts))
 

src/test/cljs/cljs/core_test.cljs

@@ -1444,6 +1444,10 @@
   (is (= "#js {:abc-def 1}" (pr-str #js {"abc-def" 1})))
   (is (= "#js {:x*+?!-' 1}" (pr-str #js {"x*+?!-'" 1}))))
 
+(deftest test-cljs-2282
+  (is (= "#js {:_abc 1}" (pr-str #js {"_abc" 1})))
+  (is (= "#js {:*compiler* 1}" (pr-str #js {"*compiler*" 1}))))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))