CLJS-3242: trailing keys bug (#243)

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -7217,7 +7217,7 @@ reduces them without incurring seq initialization"
  (let [kv (first extra-kvs)]
  (aset ret i (-key kv))
  (aset ret (inc i) (-val kv))
- (recur (+2seed-cnt) (next extra-kvs)))
+ (recur (+2i) (next extra-kvs)))
  ret))))
 
 (set! (.-createAsIfByAssoc PersistentArrayMap)

src/test/cljs/cljs/core_test.cljs

@@ -2043,10 +2043,10 @@
  (is (= [110] (reset-vals! c 0)))
  (is (=0 @c)))))
 
-#_(defntest-keys [& {:as opts, :keys [a b]}]
+(defntest-keys [& {:as opts, :keys [a b]}]
  [a b opts])
 
-#_(deftesttest-cljs-3299-trailing-keys
+(deftesttest-cljs-3299-trailing-keys
  (testing"verify proper handling of trailing keys"
  (is (= (test-keys:a1, :b2)
  [12 {:a1, :b2}]))
@@ -2055,4 +2055,4 @@
  (is (= (test-keys {:a1, :b2, :c3})
  [12 {:a1, :b2, :c3}]))
  (is (= (test-keys:d4 {:a1, :b2, :c3})
- [1nil {:d4, :a1, :c3, nilnil}]))))
+ [12 {:d4, :a1, :b2, :c3}]))))