verify that moveLeftAndIns works as expected

2024-07-01 07:40:17 +01:00
parent 1be8a40e48
commit 3e924b1082
1 changed files with 1 additions and 3 deletions
--- a/src/line_gap.sml
+++ b/src/line_gap.sml
@@ -578,11 +578,11 @@ struct
                       (leftStringsHd, rightStringsHd, leftLinesHd, rightLinesHd)
                       *) then
                   let
+                     (* VERIFIED TO WORK *)
                     val _ = print "line 370\n"
                     val prevLine = curLine - Vector.length leftLinesHd
                     val newRightStringsHd = leftStringsHd ^ rightStringsHd

-                     (*
                     val newRightLinesHd =
                       Vector.tabulate
                         ( Vector.length leftLinesHd
@@ -595,8 +595,6 @@ struct
                                 (rightLinesHd, idx - Vector.length leftLinesHd)
                               + String.size leftStringsHd
                         )
-                         *)
-                     val newRightLinesHd = countLineBreaks newRightStringsHd
                   in
                     moveLeftAndIns
                       ( idx