abstract exception handler/logger into its own file

2025-08-04 09:03:47 +01:00
parent f4c9039af1
commit ce0f700253
9 changed files with 60 additions and 47 deletions
--- a/fcore/build-search-list.sml
+++ b/fcore/build-search-list.sml
@@ -130,12 +130,15 @@ struct
    end

  fun fromRange (startIdx, length, buffer, searchString, searchList) =
-    let
-      val finishIdx = startIdx + length + String.size searchString
-      val bufferIdx = startIdx - String.size searchString
-      val bufferIdx = Int.max (bufferIdx, 0)
-    in
-      helpFromRange
-        (startIdx, bufferIdx, finishIdx, buffer, searchString, searchList)
-    end
+    if String.size searchString = 0 then
+      (buffer, searchList)
+    else
+      let
+        val finishIdx = startIdx + length + String.size searchString
+        val bufferIdx = startIdx - String.size searchString
+        val bufferIdx = Int.max (bufferIdx, 0)
+      in
+        helpFromRange
+          (startIdx, bufferIdx, finishIdx, buffer, searchString, searchList)
+      end
 end