@calcit/procs 0.12.19 → 0.12.21

package/lib/calcit.procs.mjs

@@ -124,11 +124,22 @@ export let _$n_assert_traits = function (value, traitDef) {
     if (!(traitDef instanceof CalcitTrait)) {
         throw new Error(`&assert-traits expected a trait definition, but received: ${toString(traitDef, true)}`);
     }
-    const pair = lookup_impls(value);
-    if (pair == null) {
-        throw new Error(`&assert-traits cannot resolve impls for: ${toString(value, true)}`);
+    // For records/tuples, only check instance impls (not builtin fallbacks),
+    // matching the Rust runtime behavior of collect_impl_records_for_value.
+    let impls;
+    if (value instanceof CalcitRecord) {
+        impls = value.structRef.impls ?? [];
+    }
+    else if (value instanceof CalcitTuple) {
+        impls = value.impls ?? [];
+    }
+    else {
+        const pair = lookup_impls(value);
+        if (pair == null) {
+            throw new Error(`&assert-traits cannot resolve impls for: ${toString(value, true)}`);
+        }
+        impls = pair[0];
     }
-    const impls = pair[0];
     const missing = [];
     for (let i = 0; i < traitDef.methods.length; i++) {
         const method = traitDef.methods[i];
@@ -272,6 +283,56 @@ export function _$n_record_$o_count(x) {
         return x.fields.length;
     throw new Error(`expected a record ${x}`);
 }
+export function _$n_record_$o_field_tag(x, idx) {
+    if (!(x instanceof CalcitRecord))
+        throw new Error(`&record:field-tag expected a record, got ${x}`);
+    const i = idx;
+    if (i < 0 || i >= x.fields.length)
+        throw new Error(`&record:field-tag index ${i} out of bounds (${x.fields.length})`);
+    return x.fields[i];
+}
+// === BufList — mutable append-only list ===
+// Wrapper around a plain JS Array for O(1) push.
+export class CalcitBufList {
+    constructor(buf) {
+        this.buf = buf ?? [];
+    }
+}
+export function _$n_buf_list_$o_new() {
+    return new CalcitBufList();
+}
+export function _$n_buf_list_$o_push(buf, item) {
+    if (!(buf instanceof CalcitBufList))
+        throw new Error(`&buf-list:push expected a buf-list, got ${buf}`);
+    buf.buf.push(item);
+    return buf;
+}
+export function _$n_buf_list_$o_concat(buf, xs) {
+    if (!(buf instanceof CalcitBufList))
+        throw new Error(`&buf-list:concat expected a buf-list, got ${buf}`);
+    if (xs instanceof CalcitSliceList || xs instanceof CalcitList) {
+        const gen = xs.items();
+        let next = gen.next();
+        while (!next.done) {
+            buf.buf.push(next.value);
+            next = gen.next();
+        }
+    }
+    else {
+        throw new Error(`&buf-list:concat expected a list, got ${xs}`);
+    }
+    return buf;
+}
+export function _$n_buf_list_$o_to_list(buf) {
+    if (!(buf instanceof CalcitBufList))
+        throw new Error(`&buf-list:to-list expected a buf-list, got ${buf}`);
+    return new CalcitSliceList([...buf.buf]);
+}
+export function _$n_buf_list_$o_count(buf) {
+    if (!(buf instanceof CalcitBufList))
+        throw new Error(`&buf-list:count expected a buf-list, got ${buf}`);
+    return buf.buf.length;
+}
 export function _$n_set_$o_count(x) {
     if (x instanceof CalcitSet)
         return x.len();
@@ -1376,6 +1437,9 @@ export let nil_$q_ = (x) => {
 export let tag_$q_ = (x) => {
     return x instanceof CalcitTag;
 };
+export let symbol_$q_ = (x) => {
+    return x instanceof CalcitSymbol;
+};
 export let map_$q_ = (x) => {
     return x instanceof CalcitSliceMap || x instanceof CalcitMap;
 };
@@ -1674,6 +1738,8 @@ let calcit_builtin_impls = {
     list: null,
     map: null,
     fn: null,
+    tuple: null,
+    record: null,
 };
 // need to register code from outside
 export let register_calcit_builtin_impls = (options) => {
@@ -1714,11 +1780,31 @@ function lookup_impls(obj) {
     }
     else if (obj instanceof CalcitRecord) {
         tag = obj.name.toString();
-        impls = obj.structRef.impls;
+        let instanceImpls = obj.structRef.impls;
+        let builtinRecordImpls = normalize_builtin_impls(calcit_builtin_impls.record);
+        if (builtinRecordImpls && instanceImpls && instanceImpls.length > 0) {
+            impls = [...builtinRecordImpls, ...instanceImpls];
+        }
+        else if (builtinRecordImpls) {
+            impls = builtinRecordImpls;
+        }
+        else {
+            impls = instanceImpls;
+        }
     }
     else if (obj instanceof CalcitTuple) {
         tag = obj.tag.toString();
-        impls = obj.impls;
+        let instanceImpls = obj.impls;
+        let builtinTupleImpls = normalize_builtin_impls(calcit_builtin_impls.tuple);
+        if (builtinTupleImpls && instanceImpls && instanceImpls.length > 0) {
+            impls = [...builtinTupleImpls, ...instanceImpls];
+        }
+        else if (builtinTupleImpls) {
+            impls = builtinTupleImpls;
+        }
+        else {
+            impls = instanceImpls;
+        }
     }
     else if (obj instanceof CalcitSet) {
         tag = "&core-set-methods";

package/lib/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@calcit/procs",
-    "version": "0.12.19",
+    "version": "0.12.21",
     "main": "./lib/calcit.procs.mjs",
     "devDependencies": {
         "@types/node": "^25.0.9",
@@ -19,6 +19,7 @@
         "bench-recur-smoke": "cargo run --bin cr -- calcit/test.cirru js && node --input-type=module -e \"import { test_loop } from './js-out/test-recursion.main.mjs'; const n=3000; const t0=process.hrtime.bigint(); for(let i=0;i<n;i++) test_loop(); const dt=Number(process.hrtime.bigint()-t0)/1e6; console.log('test_loop_ms='+dt.toFixed(3));\"",
         "check-smooth": "yarn fmt-rs && yarn lint-rs && yarn test-rs && yarn check-all",
         "check-all": "yarn compile && yarn try-rs && yarn try-js && yarn try-ir && yarn try-wasm",
+        "try-all": "yarn check-all",
         "try-rs": "cargo run --bin cr -- calcit/test.cirru",
         "warn-dyn-method": "cargo run --bin cr -- calcit/test.cirru --warn-dyn-method",
         "try-js-brk": "cargo run --bin cr -- calcit/test.cirru js && node --inspect-brk js-out/main.mjs",

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.12.19",
+  "version": "0.12.21",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^25.0.9",
@@ -19,6 +19,7 @@
     "bench-recur-smoke": "cargo run --bin cr -- calcit/test.cirru js && node --input-type=module -e \"import { test_loop } from './js-out/test-recursion.main.mjs'; const n=3000; const t0=process.hrtime.bigint(); for(let i=0;i<n;i++) test_loop(); const dt=Number(process.hrtime.bigint()-t0)/1e6; console.log('test_loop_ms='+dt.toFixed(3));\"",
     "check-smooth": "yarn fmt-rs && yarn lint-rs && yarn test-rs && yarn check-all",
     "check-all": "yarn compile && yarn try-rs && yarn try-js && yarn try-ir && yarn try-wasm",
+    "try-all": "yarn check-all",
     "try-rs": "cargo run --bin cr -- calcit/test.cirru",
     "warn-dyn-method": "cargo run --bin cr -- calcit/test.cirru --warn-dyn-method",
     "try-js-brk": "cargo run --bin cr -- calcit/test.cirru js && node --inspect-brk js-out/main.mjs",