Merge branch 'master' into str-no-idx-seq

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -10552,9 +10552,15 @@ reduces them without incurring seq initialization"
         (do
           (-write writer "#js ")
           (print-map
-            (map (fn [k]
-                   (MapEntry. (cond-> k (some? (re-matches #"[A-Za-z_\*\+\?!\-'][\w\*\+\?!\-']*" k)) keyword) (unchecked-get obj k) nil))
-              (js-keys obj))
+            (.map
+              (js-keys obj)
+              (fn [k]
+                (reify
+                  IMapEntry
+                  (-key [_]
+                    (cond-> k (some? (.match k #"^[A-Za-z_\*\+\?!\-'][\w\*\+\?!\-']*$")) keyword))
+                  (-val [_]
+                    (unchecked-get obj k)))))
             pr-writer writer opts))
 
         (array? obj)