add a test for 'PersistentVector.delete' (even though the 'PersistentVector.merge' helper function is unimplemented)

2026-01-17 23:27:36 +00:00
parent ee58556bde
commit 1c947eab7d
2 changed files with 37 additions and 3 deletions
--- a/fcore/persistent-vector.sml
+++ b/fcore/persistent-vector.sml
@@ -550,9 +550,9 @@ struct
  fun delete (start, finish, tree) =
    let
      val matchAfterFinish = nextMatch (finish, tree, 1)
-      val left = splitRight (start, tree)
+      val left = splitLeft (start, tree)
    in
-      if  matchAfterFinish = ~1 then
+      if matchAfterFinish = ~1 then
        (* there is no match after 'finish', so just split left. 
         * No need to decrement or split right, 
         * because the right vector would be empty. *)