* fix map arg order

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -1679,9 +1679,9 @@ reduces them without incurring seq initialization"
         (aget arr i)
         not-found)))
 
-  ISequential
-  IEquiv
-  (-equiv [coll other] (equiv-sequential coll other))
+  ;ISequential
+  ;IEquiv
+  ;(-equiv [coll other] (equiv-sequential coll other))
 
   IIterable
   (-iterator [coll]
@@ -10529,9 +10529,10 @@ 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]
+                (MapEntry. (cond-> k (some? (re-matches #"[A-Za-z_\*\+\?!\-'][\w\*\+\?!\-']*" k)) keyword) (unchecked-get obj k) nil)))
             pr-writer writer opts))
 
         (array? obj)