diff --git a/src/main/cljs/cljs/core.cljs b/src/main/cljs/cljs/core.cljs index 3cc6dd58a..dcdf23c31 100644 --- a/src/main/cljs/cljs/core.cljs +++ b/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 (+ 2 i) (next extra-kvs))) + (recur (+ 2 seed-cnt) (next extra-kvs))) ret)))) (set! (.-createAsIfByAssoc PersistentArrayMap) diff --git a/src/test/cljs/cljs/core_test.cljs b/src/test/cljs/cljs/core_test.cljs index 94dda64f8..330c18e7e 100644 --- a/src/test/cljs/cljs/core_test.cljs +++ b/src/test/cljs/cljs/core_test.cljs @@ -2043,10 +2043,10 @@ (is (= [11 0] (reset-vals! c 0))) (is (= 0 @c))))) -(defn test-keys [& {:as opts, :keys [a b]}] +#_(defn test-keys [& {:as opts, :keys [a b]}] [a b opts]) -(deftest test-cljs-3299-trailing-keys +#_(deftest test-cljs-3299-trailing-keys (testing "verify proper handling of trailing keys" (is (= (test-keys :a 1, :b 2) [1 2 {:a 1, :b 2}]))