@calcit/procs 0.8.28 → 0.8.30

package/lib/calcit.procs.mjs

@@ -1184,8 +1184,7 @@ export let _$n_js_object = (...xs) => {
     return ret;
 };
 export let _$o__$o_ = (tagName, ...extra) => {
-    let klass = new CalcitRecord(newTag("base-class"), [], []);
-    return new CalcitTuple(tagName, extra, klass);
+    return new CalcitTuple(tagName, extra, null);
 };
 export let _PCT__$o__$o_ = (klass, tag, ...extra) => {
     return new CalcitTuple(tag, extra, klass);

package/lib/js-tuple.mjs

@@ -1,4 +1,5 @@
 import { _$n__$e_, toString } from "./calcit-data.mjs";
+import { CalcitRecord } from "./js-record.mjs";
 export class CalcitTuple {
     constructor(tagName, extra, klass) {
         this.tag = tagName;
@@ -56,6 +57,12 @@ export class CalcitTuple {
             }
             content += toString(args[i], false, disableJsDataWarning);
         }
-        return `(:: ${content})`;
+        if (this.klass instanceof CalcitRecord) {
+            console.log("CLASS", this.klass);
+            return `(%:: ${content} (:class ${this.klass.name.value}))`;
+        }
+        else {
+            return `(:: ${content})`;
+        }
     }
 }

package/lib/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@calcit/procs",
-    "version": "0.8.28",
+    "version": "0.8.30",
     "main": "./lib/calcit.procs.mjs",
     "devDependencies": {
         "@types/node": "^20.11.8",
@@ -13,7 +13,8 @@
         "eval": "cargo run --bin cr -- -e",
         "try-rs": "cargo run --bin cr -- calcit/test.cirru -1",
         "try-js-brk": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node --inspect-brk js-out/main.mjs",
-        "try-js": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node js-out/main.mjs"
+        "try-js": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node js-out/main.mjs",
+        "try-ir": "cargo run --bin cr -- calcit/test.cirru --emit-ir -1"
     },
     "repository": {
         "type": "git",

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.8.28",
+  "version": "0.8.30",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^20.11.8",
@@ -13,7 +13,8 @@
     "eval": "cargo run --bin cr -- -e",
     "try-rs": "cargo run --bin cr -- calcit/test.cirru -1",
     "try-js-brk": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node --inspect-brk js-out/main.mjs",
-    "try-js": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node js-out/main.mjs"
+    "try-js": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node js-out/main.mjs",
+    "try-ir": "cargo run --bin cr -- calcit/test.cirru --emit-ir -1"
   },
   "repository": {
     "type": "git",

package/rust-toolchain.toml

@@ -1,3 +1,3 @@
 
 [toolchain]
-channel = "nightly"
+channel = "stable"

package/ts-src/calcit.procs.mts

@@ -1283,8 +1283,7 @@ export let _$n_js_object = (...xs: CalcitValue[]): Record<string, CalcitValue> =
 };
 
 export let _$o__$o_ = (tagName: CalcitValue, ...extra: CalcitValue[]): CalcitTuple => {
-  let klass = new CalcitRecord(newTag("base-class"), [], []);
-  return new CalcitTuple(tagName, extra, klass);
+  return new CalcitTuple(tagName, extra, null);
 };
 
 export let _PCT__$o__$o_ = (klass: CalcitRecord, tag: CalcitValue, ...extra: CalcitValue[]): CalcitTuple => {

package/ts-src/js-tuple.mts

@@ -61,6 +61,11 @@ export class CalcitTuple {
       }
       content += toString(args[i], false, disableJsDataWarning);
     }
-    return `(:: ${content})`;
+    if (this.klass instanceof CalcitRecord) {
+      console.log("CLASS", this.klass);
+      return `(%:: ${content} (:class ${this.klass.name.value}))`;
+    } else {
+      return `(:: ${content})`;
+    }
   }
 }