progress fixing backtracking

2025-09-29 21:29:03 +01:00
parent 64c16a7c25
commit d37e510b24
1 changed files with 2 additions and 2 deletions
--- a/fcore/search-list/nfa.sml
+++ b/fcore/search-list/nfa.sml
@@ -264,7 +264,7 @@ struct
                  val acc = PersistentVector.append (startIdx, foundIdx, acc)
                in
                  loop
-                    ( foundIdx + 1
+                    ( strIdx + 1
                    , hd
                    , tl
                    , prevStrings
@@ -305,7 +305,7 @@ struct
                        , origNfa
                        , acc
                        , absIdx
-                        , absIdx
+                        , startIdx + 1
                        , finishIdx
                        )
                    end