fix tuple tag in cirru-edn; tag 0.7.4

Cargo.toml

@@ -1,6 +1,6 @@
 [package]
 name = "calcit"
-version = "0.7.3"
+version = "0.7.4"
 authors = ["jiyinyiyong <[email protected]>"]
 edition = "2021"
 license = "MIT"

calcit/test-string.cirru

@@ -180,6 +180,12 @@
               assert= "|:: :&core-list-class $ [] 1 2 3"
                 trim $ format-cirru-edn $ :: &core-list-class $ [] 1 2 3
 
+              assert= "|:: :test"
+                trim $ format-cirru-edn $ :: :test
+
+              assert= "|:: :test :a :b"
+                trim $ format-cirru-edn $ :: :test :a :b
+
               assert=
                 &cirru-quote:to-list $ cirru-quote $ a b c $ d
                 [] |a |b |c $ [] |d

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.7.3",
+  "version": "0.7.4",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^20.3.2",

ts-src/calcit.procs.mts

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

ts-src/js-cirru.mts

@@ -129,8 +129,10 @@ export let to_cirru_edn = (x: CalcitValue): CirruEdnFormat => {
     if (x.tag instanceof CalcitSymbol && x.tag.value === "quote") {
       // turn `x.snd` with CalcitList into raw Cirru nodes, which is in plain Array
       return ["quote", toWriterNode(x.get(1) as any)] as CirruEdnFormat;
+    } else if (x.tag instanceof CalcitTag) {
+      return ["::", x.tag.toString(), ...x.extra.map(to_cirru_edn)];
     } else if (x.tag instanceof CalcitRecord) {
-      return ["::", x.tag.name.toString(), to_cirru_edn(x.get(1))];
+      return ["::", x.tag.name.toString(), ...x.extra.map(to_cirru_edn)];
     } else {
       throw new Error(`Unsupported tag for EDN: ${x.tag}`);
     }