progress implementing searchList data structure

2024-11-11 13:23:37 +00:00
parent fb8090338f
commit 287dc5548d
5 changed files with 181 additions and 38 deletions
--- a/fcore/text-window.sml
+++ b/fcore/text-window.sml
@@ -217,7 +217,7 @@ struct
        if firstLineIdx > strIdx then
          bufferLine
        else if firstLineIdx < strIdx then
-          Cursor.binSearch (strIdx - 1, lhd) + bufferLine
+          BinSearch.equalOrLess (strIdx - 1, lhd) + bufferLine
        else
          bufferLine + 1
      end