squint-cljs 0.0.14 → 0.1.16

package/package.json

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

package/src/squint/core.js

@@ -273,7 +273,6 @@ export function contains_QMARK_(coll, v) {
   }
 }
 
-
 export function dissoc_BANG_(m, ...ks) {
   for (const k of ks) {
     delete m[k];
@@ -306,7 +305,19 @@ export function println(...args) {
 
 export function nth(coll, idx, orElse) {
   if (coll) {
-    const elt = coll[idx];
+    var elt = undefined;
+    if (coll instanceof Array) {
+      elt = coll[idx];
+    } else {
+      let iter = iterable(coll);
+      let i = 0;
+      for (let value of iter) {
+        if (i++ == idx) {
+          elt = value;
+          break;
+        }
+      }
+    }
     if (elt !== undefined) {
       return elt;
     }
@@ -565,8 +576,28 @@ export function prn(...xs) {
 
 export function Atom(init) {
   this.val = init;
+  this._watches = {};
   this._deref = () => this.val;
-  this._reset_BANG_ = (x) => (this.val = x);
+  this._hasWatches = false;
+  this._reset_BANG_ = (x) => {
+    let old_val = this.val;
+    this.val = x;
+    if (this._hasWatches) {
+      for (let entry of Object.entries(this._watches)) {
+        let k = entry[0];
+        let f = entry[1];
+        f(k, this, old_val, x);
+      }
+    }
+    return x;
+  };
+  this._add_watch = (k, fn) => {
+    this._watches[k] = fn;
+    this._hasWatches = true;
+  };
+  this._remove_watch = (k) => {
+    delete this._watches[k];
+  };
 }
 
 export function atom(init) {
@@ -1028,6 +1059,11 @@ export function rand_int(n) {
   return Math.floor(Math.random() * n);
 }
 
+export function rand_nth(coll) {
+  let ri = rand_int(count(coll));
+  return nth(coll, ri);
+}
+
 function _repeatedly(f) {
   return lazy(function* () {
     while (true) yield f();
@@ -1146,7 +1182,7 @@ export function js_obj(...args) {
     if (ctr >= args.length) {
       break;
     }
-    ret[args[ctr]]=args[ctr+1];
+    ret[args[ctr]] = args[ctr + 1];
     ctr = ctr + 2;
   }
   return ret;
@@ -1160,3 +1196,28 @@ export function aset(arr, idx, val) {
   arr[idx] = val;
   return val;
 }
+
+export function dorun(x) {
+  for (const o of iterable(x)) {
+    // nothing here, just consume for side effects
+  }
+  return null;
+}
+
+export function doall(x) {
+  // realize as concrete array
+  return vec(x);
+}
+
+export function aclone(arr) {
+  let cloned = [...arr];
+  return cloned;
+}
+
+export function add_watch(ref, key, fn) {
+  return ref._add_watch(key, fn);
+}
+
+export function remove_watch(ref, key) {
+  return ref._remove_watch(key);
+}