@calcit/procs 0.7.0-a4 → 0.7.0-a5

package/lib/calcit-data.mjs

@@ -539,7 +539,7 @@ export let _$n__$e_ = (x, y) => {
     }
     if (x instanceof CalcitTuple) {
         if (y instanceof CalcitTuple) {
-            return _$n__$e_(x.tag, y.tag) && _$n__$e_(x.get(1), y.get(1));
+            return x.eq(y);
         }
         return false;
     }

package/lib/calcit.procs.mjs

@@ -1,6 +1,6 @@
 var _a;
 // CALCIT VERSION
-export const calcit_version = "0.7.0-a4";
+export const calcit_version = "0.7.0-a5";
 import { parse } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
 import { CalcitSymbol, CalcitTag, CalcitRef, CalcitRecur, newTag, refsRegistry, toString, getStringName, _$n__$e_, hashFunction, } from "./calcit-data.mjs";

package/lib/js-tuple.mjs

@@ -1,4 +1,4 @@
-import { toString } from "./calcit-data.mjs";
+import { _$n__$e_, toString } from "./calcit-data.mjs";
 export class CalcitTuple {
     constructor(tagName, extra, klass) {
         this.tag = tagName;
@@ -33,6 +33,20 @@ export class CalcitTuple {
     count() {
         return 1 + this.extra.length;
     }
+    eq(y) {
+        if (!_$n__$e_(this.tag, y.tag)) {
+            return false;
+        }
+        if (this.extra.length !== y.extra.length) {
+            return false;
+        }
+        for (let idx = 0; idx < this.extra.length; idx++) {
+            if (!_$n__$e_(this.extra[idx], y.extra[idx])) {
+                return false;
+            }
+        }
+        return true;
+    }
     toString(disableJsDataWarning = false) {
         let args = [this.tag, ...this.extra];
         let content = "";

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.7.0-a4",
+  "version": "0.7.0-a5",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^20.2.5",

package/ts-src/calcit-data.mts

@@ -581,7 +581,7 @@ export let _$n__$e_ = (x: CalcitValue, y: CalcitValue): boolean => {
   }
   if (x instanceof CalcitTuple) {
     if (y instanceof CalcitTuple) {
-      return _$n__$e_(x.tag, y.tag) && _$n__$e_(x.get(1), y.get(1));
+      return x.eq(y);
     }
     return false;
   }

package/ts-src/calcit.procs.mts

@@ -1,5 +1,5 @@
 // CALCIT VERSION
-export const calcit_version = "0.7.0-a4";
+export const calcit_version = "0.7.0-a5";
 
 import { parse, ICirruNode } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";

package/ts-src/js-tuple.mts

@@ -1,7 +1,7 @@
 import { Hash } from "@calcit/ternary-tree";
 
 import { CalcitValue } from "./js-primes.mjs";
-import { newTag, toString } from "./calcit-data.mjs";
+import { _$n__$e_, newTag, toString } from "./calcit-data.mjs";
 import { CalcitRecord } from "./js-record.mjs";
 
 export class CalcitTuple {
@@ -38,6 +38,20 @@ export class CalcitTuple {
   count() {
     return 1 + this.extra.length;
   }
+  eq(y: CalcitTuple): boolean {
+    if (!_$n__$e_(this.tag, y.tag)) {
+      return false;
+    }
+    if (this.extra.length !== y.extra.length) {
+      return false;
+    }
+    for (let idx = 0; idx < this.extra.length; idx++) {
+      if (!_$n__$e_(this.extra[idx], y.extra[idx])) {
+        return false;
+      }
+    }
+    return true;
+  }
   toString(disableJsDataWarning: boolean = false): string {
     let args = [this.tag, ...this.extra];
     let content = "";