log an exception if search-thread encounters a failure

2025-10-08 06:51:52 +01:00
parent 4d1b2073dc
commit 108e021fdb
3 changed files with 3 additions and 2 deletions
--- a/fcore/search-list/search-list.sml
+++ b/fcore/search-list/search-list.sml
@@ -6,7 +6,7 @@ struct
    let
      val iterator = LineGap.moveIteratorToIdx (idx, iterator)
    in
-      if LineGap.isIteratorAtEnd iterator then
+      if idx = #textLength iterator then
        if prevFinalPos < 0 then acc
        else PersistentVector.append (startPos, prevFinalPos, acc)
      else