migrate snapshot ns entries to NsEntry

.github/workflows/publish.yaml

@@ -34,22 +34,21 @@ jobs:
       - uses: Swatinem/rust-cache@v2
 
       - run: cargo test
-      - run: cargo run --bin cr calcit/editor/compact.cirru --once
-      - run: cargo run --bin cr calcit/test.cirru --once
+      - run: cargo run --bin cr calcit/test.cirru
 
       - name: "try js"
         run: >
           yarn
           && yarn tsc
-          && cargo run --bin cr calcit/test.cirru --once js
+          && cargo run --bin cr calcit/test.cirru js
           && ln -s ../../ node_modules/@calcit/procs
           && cp -v scripts/main.mjs js-out/
           && node js-out/main.mjs
 
       - run: cargo build --release
 
       - name: Release
-        uses: softprops/action-gh-release@v1
+        uses: softprops/action-gh-release@v2
         with:
           files: |
             target/release/cr

.github/workflows/test.yaml

@@ -36,8 +36,7 @@ jobs:
       - uses: Swatinem/rust-cache@v2
 
       - run: cargo test
-      - run: cargo run --bin cr calcit/editor/compact.cirru --once
-      - run: cargo run --bin cr calcit/test.cirru --once
+      - run: cargo run --bin cr calcit/test.cirru
 
       - uses: giraffate/clippy-action@v1
         with:
@@ -48,7 +47,7 @@ jobs:
         run: >
           yarn
           && yarn tsc
-          && cargo run --bin cr calcit/test.cirru --once js
+          && cargo run --bin cr calcit/test.cirru js
           && ln -s ../../ node_modules/@calcit/procs
           && cp -v scripts/main.mjs js-out/
           && node js-out/main.mjs

.gitignore

@@ -6,6 +6,7 @@ calcit/.compact-inc.cirru
 js-out/
 
 node_modules/
+.yarn/*.gz
 
 lib
 builds/
@@ -27,3 +28,7 @@ demos/
 .yarn
 
 .calcit-snippets/
+
+.tmp-profiles/
+
+profiling/*.gz

Agents.md

@@ -13,17 +13,20 @@
 - **一致性**：复用现有模式，保持日志和错误信息风格统一。
 - **测试覆盖**：新功能必须补齐正常路径与异常分支的测试用例。
 
-直接使用命令修改 calcit 程序时不需要调用 cargo, 直接按照文档给出的命令行示例执行即可：
+直接使用命令修改 calcit 程序时不需要调用 cargo, 直接按照文档给出的命令行示例执行即可。
+
+在开始任何 `cr edit` / `cr tree` 修改前，先把下面这条命令当作**硬前置步骤**执行一遍，而不是可选建议：
 
 ```bash
 cr docs agents --full
 ```
 
+未先阅读最新 Agent 指南时，不要直接开始改 `compact.cirru`，避免沿用过时心智模型误判命令边界。
+
 ### 运行模式更新（cr / js / ir）
 
 - `cr <entry>`、`cr <entry> js`、`cr <entry> ir` 现在默认都是**单次执行**（once）。
 - 需要监听时，显式传 `-w` 或 `--watch`（如 `cr -w <entry>`、`cr <entry> js -w`、`cr <entry> ir -w`）。
-- `-1/--once` 仍保留兼容，但在默认 once 行为下通常可省略。
 
 ### cr eval 基础与常见踩坑
 

Cargo.toml

@@ -1,7 +1,7 @@
 
 [package]
 name = "calcit"
-version = "0.12.1"
+version = "0.12.14"
 authors = ["jiyinyiyong <jiyinyiyong@gmail.com>"]
 edition = "2024"
 license = "MIT"
@@ -10,7 +10,7 @@ homepage = "http://calcit-lang.org"
 documentation = "https://docs.rs/crate/calcit/"
 repository = "https://github.com/calcit-lang/calcit.rs"
 readme = "README.md"
-exclude = ["lib/*", "calcit/*", "js-out/*", "scripts/*"]
+exclude = ["lib/*", "calcit/*", "ts-src/*", "js-out/*", "scripts/*", "docs/*", "editing-history/*", "drafts/*"]
 
 
 # See more keys and their definitions at https://doc.rust-lang.org/cargo/reference/manifest.html
@@ -32,20 +32,21 @@ strum = "0.25"
 strum_macros = "0.25"
 serde = { version = "1.0", features = ["derive"] }
 serde_json = "1.0"
-cirru_edn = "0.7.2"
+cirru_edn = "0.7.4"
 cirru_parser = "0.2.3"
 bisection_key = "0.0.1"
 ureq = "3.2.0"
 rmp-serde = "1.3.0"
+semver = "1.0"
 
 [build-dependencies]
-cirru_edn = "0.7.2"
+cirru_edn = "0.7.4"
 rmp-serde = "1.3.0"
 serde = { version = "1.0", features = ["derive"] }
 cirru_parser = "0.2.3"
 
 [target.'cfg(not(target_arch = "wasm32"))'.dependencies]
-libloading = "0.8.9"
+libloading = "0.9.0"
 ctrlc = "3.4.5"
 
 [lib]

build.rs

@@ -28,9 +28,15 @@ pub struct CodeEntry {
   pub schema: Option<Edn>,
 }
 
+#[derive(Debug, Clone, PartialEq, Eq, Serialize, Deserialize)]
+pub struct NsEntry {
+  pub doc: String,
+  pub code: Cirru,
+}
+
 #[derive(Debug, Clone, PartialEq, Eq, Serialize, Deserialize)]
 pub struct FileInSnapShot {
-  pub ns: CodeEntry,
+  pub ns: NsEntry,
   pub defs: HashMap<String, CodeEntry>,
 }
 
@@ -204,6 +210,31 @@ fn parse_code_entry(edn: Edn, owner: &str) -> Result<CodeEntry, String> {
   })
 }
 
+fn parse_ns_entry(edn: Edn, owner: &str) -> Result<NsEntry, String> {
+  let record: EdnRecordView = match edn {
+    Edn::Record(r) => r,
+    other => {
+      return Err(format!(
+        "{owner}: expected NsEntry/CodeEntry record, got {}",
+        format_edn_preview(&other)
+      ));
+    }
+  };
+  let mut doc = String::new();
+  let mut code: Option<Cirru> = None;
+  for (key, value) in &record.pairs {
+    match key.arc_str().as_ref() {
+      "doc" => doc = from_edn(value.clone()).map_err(|e| format!("{owner}: invalid `:doc`: {e}"))?,
+      "code" => code = Some(from_edn(value.clone()).map_err(|e| format!("{owner}: invalid `:code`: {e}"))?),
+      _ => {}
+    }
+  }
+  Ok(NsEntry {
+    doc,
+    code: code.ok_or_else(|| format!("{owner}: missing `:code` field in NsEntry"))?,
+  })
+}
+
 fn parse_file_in_snapshot(edn: Edn, file_name: &str) -> Result<FileInSnapShot, String> {
   let record: EdnRecordView = match edn {
     Edn::Record(r) => r,
@@ -214,11 +245,11 @@ fn parse_file_in_snapshot(edn: Edn, file_name: &str) -> Result<FileInSnapShot, S
       ));
     }
   };
-  let mut ns: Option<CodeEntry> = None;
+  let mut ns: Option<NsEntry> = None;
   let mut defs: HashMap<String, CodeEntry> = HashMap::new();
   for (key, value) in &record.pairs {
     match key.arc_str().as_ref() {
-      "ns" => ns = Some(parse_code_entry(value.clone(), &format!("{file_name}/:ns"))?),
+      "ns" => ns = Some(parse_ns_entry(value.clone(), &format!("{file_name}/:ns"))?),
       "defs" => {
         let map = match value {
           Edn::Map(m) => m,

calcit/add.cirru

@@ -10,7 +10,6 @@
           :code $ quote
             defn main! () $ + 1 2
           :examples $ []
-      :ns $ %{} :CodeEntry (:doc |) (:schema nil)
+      :ns $ %{} :NsEntry (:doc |)
         :code $ quote
           ns app.main $ :require
-        :examples $ []

calcit/debug/check-args.cirru

@@ -26,8 +26,7 @@
           :code $ quote
             defn main! () (; "bad case examples for args checking") (f1 1 4) (f2 1) (f2 1 2) (f2 1 2 4) (f2) (f3 1) (f3 1 2) (f3 1 2 3) (f3)
           :examples $ []
-      :ns $ %{} :CodeEntry (:doc |) (:schema nil)
+      :ns $ %{} :NsEntry (:doc |)
         :code $ quote
           ns check-args.main $ :require
             [] util.core :refer $ [] log-title inside-eval:
-        :examples $ []

calcit/debug/debug-overflow.cirru

@@ -37,8 +37,7 @@
                   , ~x0 $ &+ ~x0
                     rec $ ~@ xs
           :examples $ []
-      :ns $ %{} :CodeEntry (:doc |) (:schema nil)
+      :ns $ %{} :NsEntry (:doc |)
         :code $ quote
           ns debug-overflow.main $ :require
             [] util.core :refer $ [] log-title inside-eval:
-        :examples $ []