add additional test for 'dn' motion after finding bug, fixed bug (rewrote high-level delete fundtion in persistent-vector.sml to address it), and begin adding tests for 'dN' motion

2026-03-28 00:45:08 +00:00
parent 3f6eaa730a
commit 9d46ec9f34
4 changed files with 118 additions and 67 deletions
--- a/fcore/search-list/search-list.sml
+++ b/fcore/search-list/search-list.sml
@@ -144,13 +144,13 @@ struct
        in
          (buffer, searchList)
        end
-    else if PersistentVector.isInRange (idx, searchList) then
-      (buffer, searchList)
    else if Dfa.isDead curState then
      if prevFinalPos = ~1 then
        (* no match found: restart search from `startPos + 1` *)
        insertUntilMatch
          (startPos + 1, buffer, searchList, dfa, 0, startPos + 1, ~1)
+      else if PersistentVector.isInRange (prevFinalPos, searchList) then
+        (buffer, searchList)
      else
        (* new match. Insert and continue *)
        let