fix infinite loop in src/line_gap.sml (still have other errors I need to address though)

src/line_gap.sml

@@ -170,7 +170,7 @@ struct
           val curVal = Vector.sub (lines, idx)
         in
           if curVal > findNum then idx
-          else forwardLinearSearch (findNum, idx, lines)
+          else forwardLinearSearch (findNum, idx + 1, lines)
         end
 
     fun helpBinSearch (findNum, lines, low, high) =
@@ -983,6 +983,7 @@ struct
   in
     fun insert (idx, newString, buffer: t) =
       let
+        val _ = print "inserting...\n"
         val newLines = countLineBreaks newString
       in
         ins
@@ -1018,6 +1019,7 @@ struct
         (rightStringsHd :: rightStringsTl, rightLinesHd :: rightLinesTl) =>
           let
             val nextIdx = moveIdx + String.size rightStringsHd
+            val _ = println "1021"
           in
             if nextIdx < finish then
               (* Keep moving right. *)
@@ -1110,6 +1112,7 @@ struct
         (rightStringsHd :: rightStringsTl, rightLinesHd :: rightLinesTl) =>
           let
             val nextIdx = curIdx + String.size rightStringsHd
+            val _ = println "1113"
           in
             if nextIdx < start then
               (* Keep moving right. 
@@ -1510,6 +1513,7 @@ struct
           let
             val prevIdx = curIdx - String.size leftStringsHd
             val prevLine = curLine - Vector.length leftLinesHd
+            val _ = println "1513"
           in
             if start < prevIdx then
               (* Continue deleting leftward. *)
@@ -1597,6 +1601,7 @@ struct
           , rightStrings
           , rightLines
           )
+        val _ = println "1600"
       in
         deleteLeftFromHere
           ( start
@@ -1622,6 +1627,7 @@ struct
       case (leftStrings, leftLines) of
         (leftStringsHd :: leftStringsTl, leftLinesHd :: leftLinesTl) =>
           let
+            val _ = println "1625"
             val prevIdx = curIdx - String.size leftStringsHd
           in
             if prevIdx > finish then
@@ -1782,19 +1788,7 @@ struct
                       end
                     else
                       leftLinesHd
-
+                  val _ = println "1791; base case"
-                  val realsub1lines = countLineBreaks sub1
-                  val _ =
-                    if realsub1lines = sub1Lines then
-                      ()
-                    else
-                      let
-                        val _ = println "realsub1lines error"
-                        val _ = checkLineBreaks (sub1Lines, realsub1lines)
-                        val _ = println "after realsub1lines error"
-                      in
-                        ()
-                      end
 
                   val sub2Lines =
                     let
@@ -1809,18 +1803,14 @@ struct
                         Vector.tabulate
                           ( Vector.length leftLinesHd - midpoint
                           , fn idx =>
-                              Vector.sub (leftLinesHd, idx + (midpoint))
+                              Vector.sub (leftLinesHd, idx + midpoint)
                               - sub2Start
                           )
                       else
                         Vector.fromList []
                     end
 
-                  val realsub2lines = countLineBreaks sub2
+                  val _ = println "1829; base case"
-                  val _ =
-                    if realsub2lines = sub2Lines then ()
-                    else println "realsub2lines error"
-
                 in
                   { idx = prevIdx + String.size sub1
                   , line =
@@ -1914,6 +1904,9 @@ struct
                      end
                    else
                      (* Cannot join while staying in limit. *)
+                     let
+                       val _ = print "1922"
+                     in
                        deleteLeftFromHere
                          ( start
                          , prevIdx
@@ -1923,6 +1916,7 @@ struct
                          , leftStringsHd :: rightStrings
                          , leftLinesHd :: rightLines
                          )
+                     end
                | (_, _) =>
                    (* Left strings and lines are empty, so just return. *)
                    { idx = 0
@@ -1954,6 +1948,9 @@ struct
       , rightLines
       ) =
       if start > curIdx then
+        let
+          val _ = println "1963"
+        in
           moveRightAndDelete
             ( start
             , finish
@@ -1964,8 +1961,12 @@ struct
             , rightStrings
             , rightLines
             )
+        end
       else if start < curIdx then
         if finish <= curIdx then
+          let
+            val _ = println "1976"
+          in
             moveLeftAndDelete
               ( start
               , finish
@@ -1976,7 +1977,11 @@ struct
               , rightStrings
               , rightLines
               )
+          end
         else
+          let
+            val _ = println "1988"
+          in
             deleteFromLetAndRight
               ( start
               , finish
@@ -1987,7 +1992,11 @@ struct
               , rightStrings
               , rightLines
               )
+          end
       else
+        let
+          val _ = println "2000"
+        in
           deleteRightFromHere
             ( curIdx
             , curLine
@@ -1998,9 +2007,13 @@ struct
             , rightStrings
             , rightLines
             )
+        end
   in
     fun delete (start, length, buffer: t) =
       if length > 0 then
+        let
+          val _ = println "deleting..."
+        in
           del
             ( start
             , start + length
@@ -2011,6 +2024,7 @@ struct
             , #rightStrings buffer
             , #rightLines buffer
             )
+        end
       else
         buffer
   end