change utils.sml to run using rope (with line metadata) instead of tiny_rope, and verify that line metadata is correct

2024-03-14 23:29:10 +00:00
parent 571b16ba6c
commit f5649b4ee9
3 changed files with 63 additions and 48 deletions
--- a/tiny_rope.sml
+++ b/tiny_rope.sml
@@ -305,10 +305,8 @@ struct
        else (L2 (sub1, sub2), true)
      end
    else if startIdx >= 0 andalso endIdx >= String.size str then
-      let
-        val str = String.substring (str, 0, startIdx)
-      in
-        (N0 str, false)
+      let val str = String.substring (str, 0, startIdx)
+      in (N0 str, false)
      end
    else
      let val str = String.substring (str, endIdx, String.size str - endIdx)