address bug in text-window.sml: if we want to call getStartLineAfter, then always pass in a positive number

2025-08-04 11:11:18 +01:00
parent b7cdbfbe02
commit f2f93c5760
1 changed files with 1 additions and 1 deletions
--- a/fcore/text-window.sml
+++ b/fcore/text-window.sml
@@ -187,7 +187,7 @@ struct
            else if cursorIdx > absIdx then
              (* possibly move downwards *)
              getStartLineAfter
-                ( startIdx
+                ( Int.max (startIdx, 0)
                , rStrHd
                , oldLine
                , absIdx