parseman 0.61.7 → 0.61.8

package/dist/index.js

@@ -5666,7 +5666,7 @@ function sourceLeaf(root, fn) {
 }
 
 // src/version.ts
-var PARSEMAN_VERSION = "0.61.7";
+var PARSEMAN_VERSION = "0.61.8";
 
 // src/table/lex-body.ts
 function buildLexBodyRecognizer(spec, constants) {
@@ -14325,11 +14325,15 @@ function failCleanAnalysis(code) {
       case OP_CONT:
         out = clean(code[ip + 1]) && neverFails(code[ip + 3]);
         break;
-      // An arm's failure and the fallback's are committed; only the selector's is
-      // not, and without a fallback an unknown key fails after the selector wrote.
-      case OP_DISPATCH:
-        out = code[ip + 3] >= 0 && clean(code[ip + 1]);
+      // An arm's failure and a committing fallback's are committed; only the
+      // selector's is not. An uncommitted fallback's failure leaves the selector's
+      // capture, unless the fallback reads it through `routed()`, which rolls that
+      // capture back first. With no fallback, the dispatch fails after the selector wrote.
+      case OP_DISPATCH: {
+        const flags = code[ip + 4];
+        out = code[ip + 3] >= 0 && ((flags & 2) === 0 || (flags & 1) === 1) && clean(code[ip + 1]);
         break;
+      }
       default: {
         const c = passChild(code, ip);
         out = c >= 0 && clean(c);