@cleocode/worktree 2026.10.27 → 2026.11.1-canary.10

package/dist/worktree-locate.js

@@ -56,14 +56,22 @@ export function parseWorktreePorcelain(raw) {
     let branch = null;
     let locked = false;
     let bare = false;
+    let head = null;
     /** Flush the record under construction, if any. */
     const flush = () => {
         if (path !== null)
-            out.push({ path, branch, locked, ...(bare ? { bare: true } : {}) });
+            out.push({
+                path,
+                branch,
+                locked,
+                ...(head ? { head } : {}),
+                ...(bare ? { bare: true } : {}),
+            });
         path = null;
         branch = null;
         locked = false;
         bare = false;
+        head = null;
     };
     for (const line of raw.split('\n')) {
         const trimmed = line.trimEnd();
@@ -75,6 +83,9 @@ export function parseWorktreePorcelain(raw) {
             flush();
             path = trimmed.slice('worktree '.length);
         }
+        else if (trimmed.startsWith('HEAD ')) {
+            head = trimmed.slice('HEAD '.length);
+        }
         else if (trimmed.startsWith('branch ')) {
             branch = trimmed.slice('branch '.length).replace(/^refs\/heads\//, '');
         }

package/dist/worktree-locate.js.map

@@ -1 +1 @@
-{"version":3,"file":"worktree-locate.js","sourceRoot":"","sources":["../src/worktree-locate.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GAsCG;AAEH,OAAO,EAAE,UAAU,EAAE,OAAO,EAAE,MAAM,UAAU,CAAC;AAc/C;;;;;;;;;;;GAWG;AACH,MAAM,UAAU,sBAAsB,CAAC,GAAW;IAChD,MAAM,GAAG,GAAsB,EAAE,CAAC;IAClC,IAAI,IAAI,GAAkB,IAAI,CAAC;IAC/B,IAAI,MAAM,GAAkB,IAAI,CAAC;IACjC,IAAI,MAAM,GAAG,KAAK,CAAC;IACnB,IAAI,IAAI,GAAG,KAAK,CAAC;IAEjB,mDAAmD;IACnD,MAAM,KAAK,GAAG,GAAS,EAAE;QACvB,IAAI,IAAI,KAAK,IAAI;YAAE,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,IAAa,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;QAChG,IAAI,GAAG,IAAI,CAAC;QACZ,MAAM,GAAG,IAAI,CAAC;QACd,MAAM,GAAG,KAAK,CAAC;QACf,IAAI,GAAG,KAAK,CAAC;IACf,CAAC,CAAC;IAEF,KAAK,MAAM,IAAI,IAAI,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;QACnC,MAAM,OAAO,GAAG,IAAI,CAAC,OAAO,EAAE,CAAC;QAC/B,IAAI,OAAO,KAAK,EAAE,EAAE,CAAC;YACnB,KAAK,EAAE,CAAC;YACR,SAAS;QACX,CAAC;QACD,IAAI,OAAO,CAAC,UAAU,CAAC,WAAW,CAAC,EAAE,CAAC;YACpC,KAAK,EAAE,CAAC;YACR,IAAI,GAAG,OAAO,CAAC,KAAK,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;QAC3C,CAAC;aAAM,IAAI,OAAO,CAAC,UAAU,CAAC,SAAS,CAAC,EAAE,CAAC;YACzC,MAAM,GAAG,OAAO,CAAC,KAAK,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,OAAO,CAAC,gBAAgB,EAAE,EAAE,CAAC,CAAC;QACzE,CAAC;aAAM,IAAI,OAAO,KAAK,QAAQ,IAAI,OAAO,CAAC,UAAU,CAAC,SAAS,CAAC,EAAE,CAAC;YACjE,MAAM,GAAG,IAAI,CAAC;QAChB,CAAC;aAAM,IAAI,OAAO,KAAK,MAAM,EAAE,CAAC;YAC9B,IAAI,GAAG,IAAI,CAAC;QACd,CAAC;IACH,CAAC;IACD,KAAK,EAAE,CAAC;IACR,OAAO,GAAG,CAAC;AACb,CAAC;AAED;;;;;;;;;;GAUG;AACH,MAAM,UAAU,uBAAuB,CAAC,WAAmB;IACzD,IAAI,CAAC;QACH,OAAO,qBAAqB,CAAC,UAAU,CAAC,WAAW,CAAC,CAAC,CAAC;IACxD,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,EAAE,CAAC;IACZ,CAAC;AACH,CAAC;AAED;;;;;;;;;;;;;;GAcG;AACH,MAAM,UAAU,qBAAqB,CAAC,GAAW;IAC/C,OAAO,sBAAsB,CAAC,OAAO,CAAC,CAAC,UAAU,EAAE,MAAM,EAAE,aAAa,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC;AACnF,CAAC;AAED;;;;;;;;;;;;;;;;;;;GAmBG;AACH,MAAM,UAAU,kBAAkB,CAAC,WAAmB,EAAE,MAAc;IACpE,MAAM,MAAM,GAAG,MAAM,CAAC,IAAI,EAAE,CAAC;IAC7B,IAAI,MAAM,KAAK,EAAE;QAAE,OAAO,IAAI,CAAC;IAE/B,KAAK,MAAM,KAAK,IAAI,uBAAuB,CAAC,WAAW,CAAC,EAAE,CAAC;QACzD,MAAM,QAAQ,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC;QACnE,MAAM,IAAI,GAAG,QAAQ,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;QAC3C,IAAI,IAAI,KAAK,MAAM;YAAE,OAAO,KAAK,CAAC;IACpC,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC"}
+{"version":3,"file":"worktree-locate.js","sourceRoot":"","sources":["../src/worktree-locate.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GAsCG;AAEH,OAAO,EAAE,UAAU,EAAE,OAAO,EAAE,MAAM,UAAU,CAAC;AAgB/C;;;;;;;;;;;GAWG;AACH,MAAM,UAAU,sBAAsB,CAAC,GAAW;IAChD,MAAM,GAAG,GAAsB,EAAE,CAAC;IAClC,IAAI,IAAI,GAAkB,IAAI,CAAC;IAC/B,IAAI,MAAM,GAAkB,IAAI,CAAC;IACjC,IAAI,MAAM,GAAG,KAAK,CAAC;IACnB,IAAI,IAAI,GAAG,KAAK,CAAC;IACjB,IAAI,IAAI,GAAkB,IAAI,CAAC;IAE/B,mDAAmD;IACnD,MAAM,KAAK,GAAG,GAAS,EAAE;QACvB,IAAI,IAAI,KAAK,IAAI;YACf,GAAG,CAAC,IAAI,CAAC;gBACP,IAAI;gBACJ,MAAM;gBACN,MAAM;gBACN,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;gBACzB,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,IAAa,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;aACzC,CAAC,CAAC;QACL,IAAI,GAAG,IAAI,CAAC;QACZ,MAAM,GAAG,IAAI,CAAC;QACd,MAAM,GAAG,KAAK,CAAC;QACf,IAAI,GAAG,KAAK,CAAC;QACb,IAAI,GAAG,IAAI,CAAC;IACd,CAAC,CAAC;IAEF,KAAK,MAAM,IAAI,IAAI,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;QACnC,MAAM,OAAO,GAAG,IAAI,CAAC,OAAO,EAAE,CAAC;QAC/B,IAAI,OAAO,KAAK,EAAE,EAAE,CAAC;YACnB,KAAK,EAAE,CAAC;YACR,SAAS;QACX,CAAC;QACD,IAAI,OAAO,CAAC,UAAU,CAAC,WAAW,CAAC,EAAE,CAAC;YACpC,KAAK,EAAE,CAAC;YACR,IAAI,GAAG,OAAO,CAAC,KAAK,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;QAC3C,CAAC;aAAM,IAAI,OAAO,CAAC,UAAU,CAAC,OAAO,CAAC,EAAE,CAAC;YACvC,IAAI,GAAG,OAAO,CAAC,KAAK,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;QACvC,CAAC;aAAM,IAAI,OAAO,CAAC,UAAU,CAAC,SAAS,CAAC,EAAE,CAAC;YACzC,MAAM,GAAG,OAAO,CAAC,KAAK,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,OAAO,CAAC,gBAAgB,EAAE,EAAE,CAAC,CAAC;QACzE,CAAC;aAAM,IAAI,OAAO,KAAK,QAAQ,IAAI,OAAO,CAAC,UAAU,CAAC,SAAS,CAAC,EAAE,CAAC;YACjE,MAAM,GAAG,IAAI,CAAC;QAChB,CAAC;aAAM,IAAI,OAAO,KAAK,MAAM,EAAE,CAAC;YAC9B,IAAI,GAAG,IAAI,CAAC;QACd,CAAC;IACH,CAAC;IACD,KAAK,EAAE,CAAC;IACR,OAAO,GAAG,CAAC;AACb,CAAC;AAED;;;;;;;;;;GAUG;AACH,MAAM,UAAU,uBAAuB,CAAC,WAAmB;IACzD,IAAI,CAAC;QACH,OAAO,qBAAqB,CAAC,UAAU,CAAC,WAAW,CAAC,CAAC,CAAC;IACxD,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,EAAE,CAAC;IACZ,CAAC;AACH,CAAC;AAED;;;;;;;;;;;;;;GAcG;AACH,MAAM,UAAU,qBAAqB,CAAC,GAAW;IAC/C,OAAO,sBAAsB,CAAC,OAAO,CAAC,CAAC,UAAU,EAAE,MAAM,EAAE,aAAa,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC;AACnF,CAAC;AAED;;;;;;;;;;;;;;;;;;;GAmBG;AACH,MAAM,UAAU,kBAAkB,CAAC,WAAmB,EAAE,MAAc;IACpE,MAAM,MAAM,GAAG,MAAM,CAAC,IAAI,EAAE,CAAC;IAC7B,IAAI,MAAM,KAAK,EAAE;QAAE,OAAO,IAAI,CAAC;IAE/B,KAAK,MAAM,KAAK,IAAI,uBAAuB,CAAC,WAAW,CAAC,EAAE,CAAC;QACzD,MAAM,QAAQ,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC;QACnE,MAAM,IAAI,GAAG,QAAQ,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;QAC3C,IAAI,IAAI,KAAK,MAAM;YAAE,OAAO,KAAK,CAAC;IACpC,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC"}

package/dist/worktree-lock.d.ts

@@ -35,9 +35,11 @@
  *   reclaimed on age. Anything else is `E_WORKTREE_LOCKED`.
  * - **Re-entry:** the same caller (session id, agent id, owner pid and start
  *   time all equal) re-enters its own lock, so an orchestrator can retry.
- * - **Reclaim:** serialised through a second O_EXCL "reclaim mutex" file so two
- *   contenders that both saw the same dead holder cannot both win; the winner
- *   re-reads the lock and only replaces it if it is still the record it judged.
+ * - **Every lock-file write is serialised** through a second O_EXCL mutex file
+ *   (`<lock>.reclaim`): publish, re-entry, reclaim, heartbeat, release and
+ *   session-end release (T14407). A holder of the mutex (a dispose under
+ *   {@link withWorktreeTaskLockHeld}) therefore sees no lock transition at all
+ *   until it lets go.
  *
  * @module worktree-lock
  * @task T12506
@@ -176,6 +178,51 @@ export declare function isSameLockCaller(holder: WorktreeLockRecord, candidate:
  * @returns The record, or `null` when no valid lock exists.
  */
 export declare function readWorktreeTaskLock(projectHash: string, taskId: string): WorktreeLockRecord | null;
+/**
+ * A file's identity: device and inode as `bigint` (T14407). A `Number` cannot
+ * hold every 64-bit file id (Windows), so two files could compare equal.
+ */
+export interface FileIdentity {
+    dev: bigint;
+    ino: bigint;
+}
+/**
+ * True when two identities name the same file (`dev` and `ino` compared as `bigint`).
+ *
+ * @param a - First identity.
+ * @param b - Second identity.
+ * @returns Whether both name one file.
+ */
+export declare function sameFileIdentity(a: FileIdentity, b: FileIdentity): boolean;
+/** Outcome of {@link withWorktreeTaskLockHeld}. */
+export type WorktreeTaskLockHold<T> = {
+    held: true;
+    value: T;
+} | {
+    held: false;
+    reason: string;
+};
+/**
+ * Run `fn` while `token` provably holds the task lock (T14407).
+ *
+ * Takes the same mutex every lock transition takes, re-reads the lock under
+ * it, and runs `fn` only when the record on disk carries `token`; the mutex is
+ * held until `fn` returns, so no re-entry or reclaim can replace the lock in
+ * between. Fails closed: a busy mutex, a missing, unreadable or foreign lock,
+ * or a read error means `fn` never runs. `fn` must not take the lock mutex
+ * itself (every lock-file write does); it releases the lock through the
+ * `releaseLock` callback it receives, which removes it only while it still
+ * carries `token`.
+ *
+ * @param projectHash - Project hash.
+ * @param taskId - Task id.
+ * @param token - Token of the acquisition that must hold the lock.
+ * @param fn - Work to do while the lock is held; receives the record and a
+ *   `releaseLock` callback (true when it removed the lock).
+ * @param now - Clock (default `Date.now`).
+ * @returns `fn`'s value, or why it did not run.
+ */
+export declare function withWorktreeTaskLockHeld<T>(projectHash: string, taskId: string, token: string, fn: (record: WorktreeLockRecord, releaseLock: () => boolean) => T, now?: () => number): WorktreeTaskLockHold<T>;
 /**
  * Type guard for the error thrown by {@link acquireWorktreeTaskLock}.
  *
@@ -207,8 +254,10 @@ export declare function acquireWorktreeTaskLock(options: AcquireWorktreeTaskLock
  */
 export declare function heartbeatWorktreeTaskLock(projectHash: string, taskId: string, token: string, now?: () => number): WorktreeLockRecord | null;
 /**
- * Release the per-task lock. With `token`, only that acquisition's lock is
- * removed (a lock since reclaimed or re-entered by someone else is left alone).
+ * Release the per-task lock under its mutex (T14407). With `token`, only that
+ * acquisition's lock is removed (a lock since reclaimed or re-entered by
+ * someone else is left alone). A busy mutex removes nothing. Inside
+ * {@link withWorktreeTaskLockHeld}, use the `releaseLock` callback instead.
  *
  * @param projectHash - Project hash.
  * @param taskId - Task id.
@@ -220,8 +269,8 @@ export declare function releaseWorktreeTaskLock(projectHash: string, taskId: str
  * Release every per-task worktree lock of a project whose holder is
  * `sessionId` (T13425): `cleo session end` frees the worktrees that session
  * holds, so a successor's `--resume` is not refused while the harness pid that
- * spawned it lives on. Each lock is removed by its own token, so a lock another
- * holder took in the meantime is left alone.
+ * spawned it lives on. Each lock is re-checked and removed under its mutex, so
+ * a lock another holder took in the meantime is left alone (T14407).
  *
  * @param projectHash - Project hash.
  * @param sessionId - The ended session.

package/dist/worktree-lock.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"worktree-lock.d.ts","sourceRoot":"","sources":["../src/worktree-lock.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA2CG;AAmBH,OAAO,KAAK,EACV,uBAAuB,EACvB,kBAAkB,EAClB,kBAAkB,EAClB,wBAAwB,EACzB,MAAM,qBAAqB,CAAC;AAC7B,OAAO,EAAE,uBAAuB,EAAE,MAAM,oCAAoC,CAAC;AAK7E,iFAAiF;AACjF,eAAO,MAAM,4BAA4B,QAAqB,CAAC;AAE/D,4EAA4E;AAC5E,eAAO,MAAM,qBAAqB,8BAA8B,CAAC;AAoBjE,wCAAwC;AACxC,MAAM,WAAW,eAAe;IAC9B,+EAA+E;IAC/E,KAAK,EAAE,OAAO,CAAC;IACf,+EAA+E;IAC/E,SAAS,EAAE,MAAM,GAAG,IAAI,CAAC;CAC1B;AAED,uDAAuD;AACvD,MAAM,MAAM,YAAY,GAAG,CAAC,GAAG,EAAE,MAAM,KAAK,eAAe,CAAC;AAE5D,0CAA0C;AAC1C,MAAM,WAAW,sBAAsB;IACrC,2EAA2E;IAC3E,IAAI,EAAE,OAAO,CAAC;IACd,4CAA4C;IAC5C,MAAM,CAAC,EAAE,UAAU,GAAG,cAAc,GAAG,iBAAiB,GAAG,eAAe,CAAC;IAC3E,iFAAiF;IACjF,QAAQ,CAAC,EAAE,OAAO,CAAC;CACpB;AAED,mDAAmD;AACnD,MAAM,WAAW,8BAA8B;IAC7C,yCAAyC;IACzC,WAAW,EAAE,MAAM,CAAC;IACpB,4BAA4B;IAC5B,MAAM,EAAE,MAAM,CAAC;IACf,yEAAyE;IACzE,MAAM,CAAC,EAAE,kBAAkB,CAAC;IAC5B,sEAAsE;IACtE,KAAK,CAAC,EAAE,MAAM,CAAC;IACf,oDAAoD;IACpD,KAAK,CAAC,EAAE,YAAY,CAAC;IACrB,kCAAkC;IAClC,GAAG,CAAC,EAAE,MAAM,MAAM,CAAC;IACnB,gFAAgF;IAChF,QAAQ,CAAC,EAAE,MAAM,GAAG,IAAI,CAAC;IACzB,qFAAqF;IACrF,YAAY,CAAC,EAAE,wBAAwB,CAAC;CACzC;AAED,2DAA2D;AAC3D,MAAM,WAAW,mBAAoB,SAAQ,KAAK;IAChD,kCAAkC;IAClC,IAAI,EAAE,OAAO,uBAAuB,CAAC,iBAAiB,CAAC;IACvD,sDAAsD;IACtD,QAAQ,EAAE,MAAM,CAAC;IACjB,gFAAgF;IAChF,MAAM,EAAE,kBAAkB,GAAG,IAAI,CAAC;IAClC,uGAAuG;IACvG,MAAM,EAAE,MAAM,GAAG,kBAAkB,CAAC;IACpC,sCAAsC;IACtC,QAAQ,EAAE,MAAM,CAAC;IACjB,wBAAwB;IACxB,GAAG,EAAE,MAAM,CAAC;CACb;AAED;;;;;;GAMG;AACH,wBAAgB,wBAAwB,CAAC,GAAG,GAAE,MAAM,CAAC,UAAwB,GAAG,MAAM,CAKrF;AAED;;;;;;GAMG;AACH,wBAAgB,oBAAoB,CAAC,GAAG,EAAE,MAAM,GAAG,MAAM,GAAG,IAAI,CAa/D;AAED;;;;;;;;GAQG;AACH,wBAAgB,YAAY,CAAC,GAAG,EAAE,MAAM,GAAG,eAAe,CASzD;AAED;;;;;GAKG;AACH,wBAAgB,kBAAkB,IAAI,MAAM,GAAG,IAAI,CAOlD;AAED;;;;;;;;;;;;;;;;;GAiBG;AACH,wBAAgB,wBAAwB,CACtC,MAAM,EAAE,kBAAkB,EAC1B,IAAI,EAAE;IACJ,KAAK,EAAE,MAAM,CAAC;IACd,GAAG,EAAE,MAAM,CAAC;IACZ,KAAK,EAAE,YAAY,CAAC;IACpB,QAAQ,EAAE,MAAM,GAAG,IAAI,CAAC;IACxB,YAAY,CAAC,EAAE,wBAAwB,CAAC;CACzC,GACA,sBAAsB,CA4BxB;AAED;;;;;;;;GAQG;AACH,wBAAgB,gBAAgB,CAC9B,MAAM,EAAE,kBAAkB,EAC1B,SAAS,EAAE,kBAAkB,GAC5B,OAAO,CAUT;AA6CD;;;;;;GAMG;AACH,wBAAgB,oBAAoB,CAClC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,GACb,kBAAkB,GAAG,IAAI,CAO3B;AAoMD;;;;;GAKG;AACH,wBAAgB,qBAAqB,CAAC,GAAG,EAAE,OAAO,GAAG,GAAG,IAAI,mBAAmB,CAK9E;AAED;;;;;;;;;GASG;AACH,wBAAgB,uBAAuB,CACrC,OAAO,EAAE,8BAA8B,GACtC,uBAAuB,CAQzB;AAiGD;;;;;;;;;;GAUG;AACH,wBAAgB,yBAAyB,CACvC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,EACd,KAAK,EAAE,MAAM,EACb,GAAG,GAAE,MAAM,MAAiB,GAC3B,kBAAkB,GAAG,IAAI,CAqB3B;AAED;;;;;;;;GAQG;AACH,wBAAgB,uBAAuB,CACrC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,EACd,KAAK,CAAC,EAAE,MAAM,GACb,OAAO,CAYT;AAED;;;;;;;;;;GAUG;AACH,wBAAgB,kCAAkC,CAChD,WAAW,EAAE,MAAM,EACnB,SAAS,EAAE,MAAM,GAChB,kBAAkB,EAAE,CAgBtB"}
+{"version":3,"file":"worktree-lock.d.ts","sourceRoot":"","sources":["../src/worktree-lock.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA6CG;AAqBH,OAAO,KAAK,EACV,uBAAuB,EACvB,kBAAkB,EAClB,kBAAkB,EAClB,wBAAwB,EACzB,MAAM,qBAAqB,CAAC;AAC7B,OAAO,EAAE,uBAAuB,EAAE,MAAM,oCAAoC,CAAC;AAK7E,iFAAiF;AACjF,eAAO,MAAM,4BAA4B,QAAqB,CAAC;AAE/D,4EAA4E;AAC5E,eAAO,MAAM,qBAAqB,8BAA8B,CAAC;AAoBjE,wCAAwC;AACxC,MAAM,WAAW,eAAe;IAC9B,+EAA+E;IAC/E,KAAK,EAAE,OAAO,CAAC;IACf,+EAA+E;IAC/E,SAAS,EAAE,MAAM,GAAG,IAAI,CAAC;CAC1B;AAED,uDAAuD;AACvD,MAAM,MAAM,YAAY,GAAG,CAAC,GAAG,EAAE,MAAM,KAAK,eAAe,CAAC;AAE5D,0CAA0C;AAC1C,MAAM,WAAW,sBAAsB;IACrC,2EAA2E;IAC3E,IAAI,EAAE,OAAO,CAAC;IACd,4CAA4C;IAC5C,MAAM,CAAC,EAAE,UAAU,GAAG,cAAc,GAAG,iBAAiB,GAAG,eAAe,CAAC;IAC3E,iFAAiF;IACjF,QAAQ,CAAC,EAAE,OAAO,CAAC;CACpB;AAED,mDAAmD;AACnD,MAAM,WAAW,8BAA8B;IAC7C,yCAAyC;IACzC,WAAW,EAAE,MAAM,CAAC;IACpB,4BAA4B;IAC5B,MAAM,EAAE,MAAM,CAAC;IACf,yEAAyE;IACzE,MAAM,CAAC,EAAE,kBAAkB,CAAC;IAC5B,sEAAsE;IACtE,KAAK,CAAC,EAAE,MAAM,CAAC;IACf,oDAAoD;IACpD,KAAK,CAAC,EAAE,YAAY,CAAC;IACrB,kCAAkC;IAClC,GAAG,CAAC,EAAE,MAAM,MAAM,CAAC;IACnB,gFAAgF;IAChF,QAAQ,CAAC,EAAE,MAAM,GAAG,IAAI,CAAC;IACzB,qFAAqF;IACrF,YAAY,CAAC,EAAE,wBAAwB,CAAC;CACzC;AAED,2DAA2D;AAC3D,MAAM,WAAW,mBAAoB,SAAQ,KAAK;IAChD,kCAAkC;IAClC,IAAI,EAAE,OAAO,uBAAuB,CAAC,iBAAiB,CAAC;IACvD,sDAAsD;IACtD,QAAQ,EAAE,MAAM,CAAC;IACjB,gFAAgF;IAChF,MAAM,EAAE,kBAAkB,GAAG,IAAI,CAAC;IAClC,uGAAuG;IACvG,MAAM,EAAE,MAAM,GAAG,kBAAkB,CAAC;IACpC,sCAAsC;IACtC,QAAQ,EAAE,MAAM,CAAC;IACjB,wBAAwB;IACxB,GAAG,EAAE,MAAM,CAAC;CACb;AAED;;;;;;GAMG;AACH,wBAAgB,wBAAwB,CAAC,GAAG,GAAE,MAAM,CAAC,UAAwB,GAAG,MAAM,CAKrF;AAED;;;;;;GAMG;AACH,wBAAgB,oBAAoB,CAAC,GAAG,EAAE,MAAM,GAAG,MAAM,GAAG,IAAI,CAa/D;AAED;;;;;;;;GAQG;AACH,wBAAgB,YAAY,CAAC,GAAG,EAAE,MAAM,GAAG,eAAe,CASzD;AAED;;;;;GAKG;AACH,wBAAgB,kBAAkB,IAAI,MAAM,GAAG,IAAI,CAOlD;AAED;;;;;;;;;;;;;;;;;GAiBG;AACH,wBAAgB,wBAAwB,CACtC,MAAM,EAAE,kBAAkB,EAC1B,IAAI,EAAE;IACJ,KAAK,EAAE,MAAM,CAAC;IACd,GAAG,EAAE,MAAM,CAAC;IACZ,KAAK,EAAE,YAAY,CAAC;IACpB,QAAQ,EAAE,MAAM,GAAG,IAAI,CAAC;IACxB,YAAY,CAAC,EAAE,wBAAwB,CAAC;CACzC,GACA,sBAAsB,CA4BxB;AAED;;;;;;;;GAQG;AACH,wBAAgB,gBAAgB,CAC9B,MAAM,EAAE,kBAAkB,EAC1B,SAAS,EAAE,kBAAkB,GAC5B,OAAO,CAUT;AA6CD;;;;;;GAMG;AACH,wBAAgB,oBAAoB,CAClC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,GACb,kBAAkB,GAAG,IAAI,CAO3B;AA6ED;;;GAGG;AACH,MAAM,WAAW,YAAY;IAC3B,GAAG,EAAE,MAAM,CAAC;IACZ,GAAG,EAAE,MAAM,CAAC;CACb;AAED;;;;;;GAMG;AACH,wBAAgB,gBAAgB,CAAC,CAAC,EAAE,YAAY,EAAE,CAAC,EAAE,YAAY,GAAG,OAAO,CAE1E;AAwOD,mDAAmD;AACnD,MAAM,MAAM,oBAAoB,CAAC,CAAC,IAAI;IAAE,IAAI,EAAE,IAAI,CAAC;IAAC,KAAK,EAAE,CAAC,CAAA;CAAE,GAAG;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,MAAM,EAAE,MAAM,CAAA;CAAE,CAAC;AAEjG;;;;;;;;;;;;;;;;;;;GAmBG;AACH,wBAAgB,wBAAwB,CAAC,CAAC,EACxC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,EACd,KAAK,EAAE,MAAM,EACb,EAAE,EAAE,CAAC,MAAM,EAAE,kBAAkB,EAAE,WAAW,EAAE,MAAM,OAAO,KAAK,CAAC,EACjE,GAAG,GAAE,MAAM,MAAiB,GAC3B,oBAAoB,CAAC,CAAC,CAAC,CA4BzB;AA8DD;;;;;GAKG;AACH,wBAAgB,qBAAqB,CAAC,GAAG,EAAE,OAAO,GAAG,GAAG,IAAI,mBAAmB,CAK9E;AAED;;;;;;;;;GASG;AACH,wBAAgB,uBAAuB,CACrC,OAAO,EAAE,8BAA8B,GACtC,uBAAuB,CAQzB;AAmGD;;;;;;;;;;GAUG;AACH,wBAAgB,yBAAyB,CACvC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,EACd,KAAK,EAAE,MAAM,EACb,GAAG,GAAE,MAAM,MAAiB,GAC3B,kBAAkB,GAAG,IAAI,CAqB3B;AAED;;;;;;;;;;GAUG;AACH,wBAAgB,uBAAuB,CACrC,WAAW,EAAE,MAAM,EACnB,MAAM,EAAE,MAAM,EACd,KAAK,CAAC,EAAE,MAAM,GACb,OAAO,CAQT;AAED;;;;;;;;;;GAUG;AACH,wBAAgB,kCAAkC,CAChD,WAAW,EAAE,MAAM,EACnB,SAAS,EAAE,MAAM,GAChB,kBAAkB,EAAE,CAoBtB"}

package/dist/worktree-lock.js

@@ -35,18 +35,21 @@
  *   reclaimed on age. Anything else is `E_WORKTREE_LOCKED`.
  * - **Re-entry:** the same caller (session id, agent id, owner pid and start
  *   time all equal) re-enters its own lock, so an orchestrator can retry.
- * - **Reclaim:** serialised through a second O_EXCL "reclaim mutex" file so two
- *   contenders that both saw the same dead holder cannot both win; the winner
- *   re-reads the lock and only replaces it if it is still the record it judged.
+ * - **Every lock-file write is serialised** through a second O_EXCL mutex file
+ *   (`<lock>.reclaim`): publish, re-entry, reclaim, heartbeat, release and
+ *   session-end release (T14407). A holder of the mutex (a dispose under
+ *   {@link withWorktreeTaskLockHeld}) therefore sees no lock transition at all
+ *   until it lets go.
  *
  * @module worktree-lock
  * @task T12506
  */
 import { execFileSync } from 'node:child_process';
 import { randomUUID } from 'node:crypto';
-import { closeSync, fsyncSync, linkSync, mkdirSync, openSync, readdirSync, readFileSync, renameSync, statSync, unlinkSync, writeSync, } from 'node:fs';
+import { closeSync, fstatSync, fsyncSync, linkSync, mkdirSync, openSync, readdirSync, readFileSync, renameSync, statSync, unlinkSync, writeSync, } from 'node:fs';
 import { hostname } from 'node:os';
 import { dirname } from 'node:path';
+import { threadId } from 'node:worker_threads';
 import { BRANCH_LOCK_ERROR_CODES } from '@cleocode/contracts/branch-lock.js';
 import { ExitCode } from '@cleocode/contracts/exit-codes.js';
 import { PS_STABLE_ENV } from '@cleocode/contracts/process-probe.js';
@@ -325,61 +328,98 @@ function publishExclusive(lockPath, record) {
 function sleepSync(ms) {
     Atomics.wait(new Int32Array(new SharedArrayBuffer(4)), 0, 0, ms);
 }
+/** This process's start time, read once (a `ps` call). */
+let ownStartTime;
 /**
- * Remove an abandoned mutex only if it is still the file we judged stale:
- * rename it to a private name, then compare inodes. A mutex created in the
- * meantime by a live contender is put back rather than deleted.
+ * True when two identities name the same file (`dev` and `ino` compared as `bigint`).
+ *
+ * @param a - First identity.
+ * @param b - Second identity.
+ * @returns Whether both name one file.
  */
-function breakStaleMutex(mutexPath, staleIno) {
-    const graveyard = `${mutexPath}.${randomUUID()}.stale`;
+export function sameFileIdentity(a, b) {
+    return a.dev === b.dev && a.ino === b.ino;
+}
+/** Parse a mutex file's holder, or `null` when it is not a record. */
+function parseMutexHolder(raw) {
     try {
-        renameSync(mutexPath, graveyard);
+        const parsed = JSON.parse(raw);
+        if (typeof parsed.token === 'string' && typeof parsed.pid === 'number') {
+            return {
+                token: parsed.token,
+                pid: parsed.pid,
+                processStartedAt: typeof parsed.processStartedAt === 'string' ? parsed.processStartedAt : null,
+                threadId: typeof parsed.threadId === 'number' ? parsed.threadId : -1,
+            };
+        }
     }
     catch {
-        return; // already gone
+        /* a bare-token mutex from an older writer */
     }
-    let ino = -1;
+    return null;
+}
+/**
+ * Read a mutex file's holder and identity from ONE open descriptor (`fstat` on
+ * the fd that was read), so a mutex replaced between the read and the stat can
+ * never pair the old holder with the new file (T14407).
+ *
+ * @returns The snapshot, or `null` when the file is missing.
+ */
+function readMutexSnapshot(mutexPath) {
+    let fd;
     try {
-        ino = statSync(graveyard).ino;
+        fd = openSync(mutexPath, 'r');
     }
     catch {
-        return;
-    }
-    if (ino === staleIno) {
-        unlinkQuiet(graveyard);
-        return;
+        return null;
     }
     try {
-        linkSync(graveyard, mutexPath); // restore the live contender's mutex
+        const raw = readFileSync(fd, 'utf-8');
+        const st = fstatSync(fd, { bigint: true });
+        return {
+            raw,
+            holder: parseMutexHolder(raw),
+            id: { dev: st.dev, ino: st.ino },
+            mtimeMs: Number(st.mtimeMs),
+        };
     }
     catch {
-        try {
-            renameSync(graveyard, mutexPath);
-        }
-        catch {
-            /* best effort */
-        }
+        return null;
+    }
+    finally {
+        closeSync(fd);
     }
-    unlinkQuiet(graveyard);
 }
 /**
- * Take the per-lock mutex (`<lock>.reclaim`, O_EXCL, content = our token). It
- * serialises every non-create transition of the lock file (reclaim, re-entry,
- * heartbeat). A mutex older than {@link RECLAIM_MUTEX_STALE_MS} belongs to a
- * crashed holder and is broken by inode.
+ * Take the per-lock mutex (`<lock>.reclaim`, O_EXCL). It serialises every
+ * write of the lock file (publish, reclaim, re-entry, heartbeat, release) and
+ * the whole of {@link withWorktreeTaskLockHeld}.
+ *
+ * The file names its holder (pid, start time, thread). A mutex older than
+ * {@link RECLAIM_MUTEX_STALE_MS} is broken, under the breaker lock, only when that holder is
+ * provably dead and the file is still the one read (holder and identity read from one descriptor), so a long hold by a live process (a forced dispose) is never
+ * broken as stale, even where its start time cannot be read (T14407). A mutex this very thread holds is reported
+ * busy at once: waiting would block the holder, which can never release it.
  *
  * @returns A release function (removes the mutex only if it is still ours),
  *   or `null` when the mutex stayed busy.
  */
 function takeLockMutex(lockPath, now) {
     const mutexPath = `${lockPath}.reclaim`;
-    const token = randomUUID();
+    if (ownStartTime === undefined)
+        ownStartTime = readProcessStartTime(process.pid);
+    const content = JSON.stringify({
+        token: randomUUID(),
+        pid: process.pid,
+        processStartedAt: ownStartTime,
+        threadId,
+    });
     for (let attempt = 0; attempt < RECLAIM_ATTEMPTS; attempt++) {
         try {
-            writeExclusive(mutexPath, token);
+            writeExclusive(mutexPath, content);
             return () => {
                 try {
-                    if (readFileSync(mutexPath, 'utf-8') === token)
+                    if (readFileSync(mutexPath, 'utf-8') === content)
                         unlinkSync(mutexPath);
                 }
                 catch {
@@ -390,19 +430,199 @@ function takeLockMutex(lockPath, now) {
         catch (err) {
             if (err.code !== 'EEXIST')
                 throw err;
-            try {
-                const st = statSync(mutexPath);
-                if (now() - st.mtimeMs > RECLAIM_MUTEX_STALE_MS)
-                    breakStaleMutex(mutexPath, st.ino);
-            }
-            catch {
-                /* vanished between open and stat — retry */
+            const snap = readMutexSnapshot(mutexPath);
+            if (snap !== null) {
+                const { holder } = snap;
+                if (holder !== null && holder.pid === process.pid && holder.threadId === threadId) {
+                    return null; // held by this thread: re-entrant from inside a hold
+                }
+                // Breaks are serialised under `<mutex>.break`; the file is unlinked
+                // only while it is still the one whose holder was judged dead.
+                const nowMs = now();
+                if (isStaleMutex(snap, nowMs))
+                    breakStaleMutex(mutexPath, snap, nowMs);
             }
             sleepSync(RECLAIM_BACKOFF_MS);
         }
     }
     return null;
 }
+/** A mutex (or breaker) past {@link RECLAIM_MUTEX_STALE_MS} whose holder is provably dead. */
+function isStaleMutex(snap, nowMs) {
+    return nowMs - snap.mtimeMs > RECLAIM_MUTEX_STALE_MS && !isMutexHolderAlive(snap.holder);
+}
+/** True when `current` is still the very file `snap` read: same identity and content. */
+function isSameMutex(current, snap) {
+    return sameFileIdentity(current.id, snap.id) && current.raw === snap.raw;
+}
+/**
+ * Take the breaker lock `<mutex>.break` (O_EXCL). A breaker whose holder is
+ * provably dead is removed (only while it is still the file judged dead) and
+ * the caller retries on its next attempt; a live one is never touched.
+ *
+ * @returns A release function, or `null` when another breaker holds it.
+ */
+function takeBreaker(breakerPath, content, nowMs) {
+    try {
+        writeExclusive(breakerPath, content);
+    }
+    catch (err) {
+        if (err.code !== 'EEXIST')
+            throw err;
+        const snap = readMutexSnapshot(breakerPath);
+        if (snap !== null && isStaleMutex(snap, nowMs)) {
+            const current = readMutexSnapshot(breakerPath);
+            if (current !== null && isSameMutex(current, snap))
+                unlinkQuiet(breakerPath);
+        }
+        return null;
+    }
+    return () => {
+        try {
+            if (readFileSync(breakerPath, 'utf-8') === content)
+                unlinkSync(breakerPath);
+        }
+        catch {
+            /* already gone */
+        }
+    };
+}
+/**
+ * Remove an abandoned mutex (T14407). A path cannot be compared-and-deleted
+ * atomically, so every break runs under the breaker lock: under it the mutex
+ * is re-read through one descriptor and unlinked only if it is still the file
+ * `stale` read. Acquisition is O_EXCL, which never replaces an existing mutex,
+ * so with breaks serialised a live mutex is never moved or deleted.
+ *
+ * Residual: two contenders that both find the same DEAD breaker can race to
+ * remove it; that needs a breaker that died mid-break and stayed stale.
+ */
+function breakStaleMutex(mutexPath, stale, nowMs) {
+    const release = takeBreaker(`${mutexPath}.break`, JSON.stringify({
+        token: randomUUID(),
+        pid: process.pid,
+        processStartedAt: ownStartTime ?? null,
+        threadId,
+    }), nowMs);
+    if (release === null)
+        return;
+    try {
+        const current = readMutexSnapshot(mutexPath);
+        if (current !== null && isSameMutex(current, stale))
+            unlinkQuiet(mutexPath);
+    }
+    finally {
+        release();
+    }
+}
+/**
+ * False only when the mutex holder is provably dead: its pid is gone, or alive
+ * with a different start time (recycled). An unknown start time on either side
+ * (Windows, a failed `ps`) keeps it alive (T14407). A mutex naming no holder
+ * (an older bare-token writer) is treated as dead once stale.
+ */
+function isMutexHolderAlive(holder) {
+    if (holder === null)
+        return false;
+    const liveness = probeProcess(holder.pid);
+    if (!liveness.alive)
+        return false;
+    return (holder.processStartedAt === null ||
+        liveness.startedAt === null ||
+        liveness.startedAt === holder.processStartedAt);
+}
+/**
+ * Unlink the lock file when `matches` accepts what is on disk. The caller
+ * holds the lock mutex.
+ *
+ * @returns What was removed, or `null` when nothing was (absent, rejected or an I/O error).
+ */
+function unlinkLockIf(lockPath, matches) {
+    try {
+        const current = readLockAt(lockPath, Date.now());
+        if (current.kind === 'absent' || !matches(current))
+            return null;
+        unlinkSync(lockPath);
+        return current;
+    }
+    catch {
+        return null;
+    }
+}
+/**
+ * {@link unlinkLockIf} under the lock mutex. A busy mutex or an I/O error
+ * removes nothing (fail closed: the lock stays).
+ */
+function releaseLockIf(lockPath, matches) {
+    let release;
+    try {
+        release = takeLockMutex(lockPath, Date.now);
+    }
+    catch {
+        return null;
+    }
+    if (release === null)
+        return null;
+    try {
+        return unlinkLockIf(lockPath, matches);
+    }
+    finally {
+        release();
+    }
+}
+/**
+ * Run `fn` while `token` provably holds the task lock (T14407).
+ *
+ * Takes the same mutex every lock transition takes, re-reads the lock under
+ * it, and runs `fn` only when the record on disk carries `token`; the mutex is
+ * held until `fn` returns, so no re-entry or reclaim can replace the lock in
+ * between. Fails closed: a busy mutex, a missing, unreadable or foreign lock,
+ * or a read error means `fn` never runs. `fn` must not take the lock mutex
+ * itself (every lock-file write does); it releases the lock through the
+ * `releaseLock` callback it receives, which removes it only while it still
+ * carries `token`.
+ *
+ * @param projectHash - Project hash.
+ * @param taskId - Task id.
+ * @param token - Token of the acquisition that must hold the lock.
+ * @param fn - Work to do while the lock is held; receives the record and a
+ *   `releaseLock` callback (true when it removed the lock).
+ * @param now - Clock (default `Date.now`).
+ * @returns `fn`'s value, or why it did not run.
+ */
+export function withWorktreeTaskLockHeld(projectHash, taskId, token, fn, now = Date.now) {
+    const lockPath = resolveWorktreeTaskLockPath(projectHash, taskId);
+    let release;
+    try {
+        release = takeLockMutex(lockPath, now);
+    }
+    catch (err) {
+        return { held: false, reason: `the lock mutex could not be taken (${String(err)})` };
+    }
+    if (release === null)
+        return { held: false, reason: 'the lock mutex stayed busy' };
+    try {
+        let current;
+        try {
+            current = readLockAt(lockPath, now());
+        }
+        catch (err) {
+            return { held: false, reason: `the task lock could not be read (${String(err)})` };
+        }
+        if (current.kind === 'absent')
+            return { held: false, reason: 'the task lock was released' };
+        if (current.kind === 'unreadable')
+            return { held: false, reason: 'the task lock is unreadable' };
+        if (current.record.token !== token) {
+            return { held: false, reason: 'the task lock passed to another acquisition' };
+        }
+        const releaseLock = () => unlinkLockIf(lockPath, (r) => r.kind === 'record' && r.record.token === token) !== null;
+        return { held: true, value: fn(current.record, releaseLock) };
+    }
+    finally {
+        release();
+    }
+}
 /** Build the typed E_WORKTREE_LOCKED error naming the holder. */
 function lockedError(taskId, lockPath, holder) {
     const who = [
@@ -506,49 +726,52 @@ function acquireUnchecked(options, lockPath) {
         acquiredAt: stamp,
         heartbeatAt: stamp,
     };
+    let backoff = false;
     for (let pass = 0; pass < MAX_ACQUIRE_PASSES; pass++) {
-        if (publishExclusive(lockPath, record))
-            return { status: 'acquired', lockPath, record };
-        const existing = readLockAt(lockPath, now());
-        if (existing.kind === 'absent')
-            continue; // released between create and read — retry
-        let status;
-        let reason;
-        if (existing.kind === 'unreadable') {
-            if (existing.ageMs < UNREADABLE_GRACE_MS) {
-                sleepSync(RECLAIM_BACKOFF_MS); // O_EXCL fallback writer mid-write
-                continue;
-            }
-            status = 'reclaimed';
-            reason = 'unreadable';
-        }
-        else if (isSameLockCaller(existing.record, record)) {
-            status = 'reentered';
-        }
-        else {
-            const verdict = assessWorktreeLockHolder(existing.record, {
-                ttlMs,
-                now: now(),
-                probe,
-                deviceId,
-                ...(options.sessionProbe ? { sessionProbe: options.sessionProbe } : {}),
-            });
-            if (verdict.live)
-                throw lockedError(taskId, lockPath, existing.record);
-            status = 'reclaimed';
-            reason = verdict.reason;
-        }
+        if (backoff)
+            sleepSync(RECLAIM_BACKOFF_MS); // O_EXCL fallback writer mid-write
+        backoff = false;
+        // Every write of the lock file happens under its mutex (T14407).
         const release = takeLockMutex(lockPath, now);
-        if (release === null)
-            continue; // another contender is transitioning it — re-evaluate
+        if (release === null) {
+            // Someone is transitioning or disposing the lock: refuse, naming its holder.
+            const busy = readLockAt(lockPath, now());
+            if (busy.kind === 'record')
+                throw lockedError(taskId, lockPath, busy.record);
+            continue;
+        }
         try {
-            // Re-read under the mutex: only replace the exact record we judged.
-            const current = readLockAt(lockPath, now());
-            const same = existing.kind === 'unreadable'
-                ? current.kind === 'unreadable'
-                : current.kind === 'record' && current.record.token === existing.record.token;
-            if (!same)
-                continue;
+            if (publishExclusive(lockPath, record))
+                return { status: 'acquired', lockPath, record };
+            const existing = readLockAt(lockPath, now());
+            if (existing.kind === 'absent')
+                continue; // released between create and read — retry
+            let status;
+            let reason;
+            if (existing.kind === 'unreadable') {
+                if (existing.ageMs < UNREADABLE_GRACE_MS) {
+                    backoff = true;
+                    continue;
+                }
+                status = 'reclaimed';
+                reason = 'unreadable';
+            }
+            else if (isSameLockCaller(existing.record, record)) {
+                status = 'reentered';
+            }
+            else {
+                const verdict = assessWorktreeLockHolder(existing.record, {
+                    ttlMs,
+                    now: now(),
+                    probe,
+                    deviceId,
+                    ...(options.sessionProbe ? { sessionProbe: options.sessionProbe } : {}),
+                });
+                if (verdict.live)
+                    throw lockedError(taskId, lockPath, existing.record);
+                status = 'reclaimed';
+                reason = verdict.reason;
+            }
             unlinkQuiet(lockPath);
             if (publishExclusive(lockPath, record)) {
                 return {
@@ -607,8 +830,10 @@ export function heartbeatWorktreeTaskLock(projectHash, taskId, token, now = Date
     }
 }
 /**
- * Release the per-task lock. With `token`, only that acquisition's lock is
- * removed (a lock since reclaimed or re-entered by someone else is left alone).
+ * Release the per-task lock under its mutex (T14407). With `token`, only that
+ * acquisition's lock is removed (a lock since reclaimed or re-entered by
+ * someone else is left alone). A busy mutex removes nothing. Inside
+ * {@link withWorktreeTaskLockHeld}, use the `releaseLock` callback instead.
  *
  * @param projectHash - Project hash.
  * @param taskId - Task id.
@@ -617,25 +842,14 @@ export function heartbeatWorktreeTaskLock(projectHash, taskId, token, now = Date
  */
 export function releaseWorktreeTaskLock(projectHash, taskId, token) {
     const lockPath = resolveWorktreeTaskLockPath(projectHash, taskId);
-    try {
-        if (token !== undefined) {
-            const current = readLockAt(lockPath, Date.now());
-            if (current.kind !== 'record' || current.record.token !== token)
-                return false;
-        }
-        unlinkSync(lockPath);
-        return true;
-    }
-    catch {
-        return false;
-    }
+    return (releaseLockIf(lockPath, (r) => token === undefined || (r.kind === 'record' && r.record.token === token)) !== null);
 }
 /**
  * Release every per-task worktree lock of a project whose holder is
  * `sessionId` (T13425): `cleo session end` frees the worktrees that session
  * holds, so a successor's `--resume` is not refused while the harness pid that
- * spawned it lives on. Each lock is removed by its own token, so a lock another
- * holder took in the meantime is left alone.
+ * spawned it lives on. Each lock is re-checked and removed under its mutex, so
+ * a lock another holder took in the meantime is left alone (T14407).
  *
  * @param projectHash - Project hash.
  * @param sessionId - The ended session.
@@ -653,11 +867,12 @@ export function releaseWorktreeTaskLocksForSession(projectHash, sessionId) {
     const released = [];
     for (const name of names) {
         const taskId = name.slice(0, -'.lock'.length);
-        const record = readWorktreeTaskLock(projectHash, taskId);
-        if (record === null || record.sessionId !== sessionId)
+        const seen = readWorktreeTaskLock(projectHash, taskId);
+        if (seen === null || seen.sessionId !== sessionId)
             continue;
-        if (releaseWorktreeTaskLock(projectHash, taskId, record.token))
-            released.push(record);
+        const removed = releaseLockIf(resolveWorktreeTaskLockPath(projectHash, taskId), (r) => r.kind === 'record' && r.record.sessionId === sessionId);
+        if (removed?.kind === 'record')
+            released.push(removed.record);
     }
     return released;
 }