remove dead comment

src/line_gap.sml

@@ -724,42 +724,35 @@ struct
         val midpoint = binSearch (String.size strSub1 - 1, rightLinesHd)
       in
         if
+          (*
             isThreeInLimit (strSub1, newString, strSub2, rightLinesHd, newLines)
+            *)
+          true
         then
           (* Join three strings together. *)
           let
+            (* VERIFIED TO WORK *)
             val _ = print "line 573\n"
             val newRightStringsHd = String.concat [strSub1, newString, strSub2]
 
-          (*
             val newRightLinesHd =
+              if Vector.length rightLinesHd > 0 then
                 Vector.tabulate
                   ( Vector.length rightLinesHd + Vector.length newLines
                   , fn idx =>
-                  if idx < midpoint then
+                      if idx <= midpoint then
                         Vector.sub (rightLinesHd, idx)
-                  else if idx < midpoint + Vector.length newLines then
+                      else if idx <= midpoint + Vector.length newLines then
-                    let
+                        Vector.sub (newLines, (idx - midpoint) - 1)
-                      val result =
+                        + String.size strSub1
-                        Vector.sub (newLines, idx - midpoint) + String.size
-                        strSub1
-                      val _ = print "line 598\n"
-                      val _ = print ("result: " ^ Int.toString result ^ "\n")
-                    in
-                      result
-                    end
                       else
-                    let
-                      val result =
                         Vector.sub
-                          (rightLinesHd, idx - Vector.length newLines)
+                          (rightLinesHd, (idx - Vector.length newLines))
                         + String.size newString
-                      val _ = print "line 606\n"
+                  )
-                      val _ = print ("result: " ^ Int.toString result ^ "\n")
+              else
-                    in
+                Vector.map (fn el => el + String.size strSub1) newLines
-                      result
+
-                    end
-              ) *)
           in
             verifyReturn
               { idx = curIdx
@@ -767,7 +760,7 @@ struct
               , leftStrings = leftStrings
               , leftLines = leftLines
               , rightStrings = newRightStringsHd :: rightStringsTl
-              , rightLines = countLineBreaks newRightStringsHd :: rightLinesTl
+              , rightLines = newRightLinesHd :: rightLinesTl
               }
           end
         else if