v0.1.18: reduce-kv

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 [Squint](https://github.com/squint-cljs/squint): ClojureScript syntax to JavaScript compiler
 
+## 0.1.18
+
+- Add `reduce-kv`
+
 ## 0.1.17
 
 - [#320](https://github.com/squint-cljs/squint/issues/320): fix overriding core vars

package.json

@@ -2,7 +2,7 @@
   "name": "squint-cljs",
   "type": "module",
   "sideEffects": false,
-  "version": "0.1.17",
+  "version": "0.1.18",
   "files": [
     "core.js",
     "src/squint/core.js",

resources/squint/core.edn

@@ -93,6 +93,7 @@
   range
   re_matches
   reduce
+  reduce_kv
   reduced
   reduced_QMARK_
   remove

src/squint/core.js

@@ -1221,3 +1221,14 @@ export function add_watch(ref, key, fn) {
 export function remove_watch(ref, key) {
   return ref._remove_watch(key);
 }
+
+export function reduce_kv(f, init, m) {
+  if (!m) {
+    return init;
+  }
+  var ret = init;
+  for (let o of Object.entries(m)) {
+    ret = f(ret, o[0], o[1]);
+  }
+  return ret;
+}