when looping through a DFA in a functor, make sure we return the absolute index to the calling function and not a modified version of the absolute index which has already been clipped

2025-09-16 21:35:48 +01:00
parent 12478f8ac2
commit 96521f358f
2 changed files with 6 additions and 1 deletions
--- a/fcore/cursor-dfa/make-dfa-loop.sml
+++ b/fcore/cursor-dfa/make-dfa-loop.sml
@@ -147,7 +147,7 @@ struct
    if idx = String.size str then
      case tl of
        str :: tl => foldNext (0, absIdx, str, tl, currentState, counter)
-      | [] => Int.max (absIdx - 2, 0)
+      | [] => absIdx
    else
      let
        val chr = String.sub (str, idx)