humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

amend 'removeMiddle' function in gap_map.sml: before, we were leaving element we want to remove in rkhd/rvhd because we started the slice at 'insPos', but now we increment 'insPos' by 1 so we filter that desired element out

Browse Source
This commit is contained in:
Humza Shahid
2025-02-14 13:02:42 +00:00
parent 5f834ddaa4
commit e2da10e908
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/gap_map.sml
View File

@@ -878,12 +878,14 @@ struct
fun removeMiddle (khd, vhd, insPos, leftKeys, leftVals, rightKeys, rightVals) = fun removeMiddle (khd, vhd, insPos, leftKeys, leftVals, rightKeys, rightVals) =
let let
val rLen = Vector.length khd - insPos val rStart = insPos + 1
val rLen = Vector.length khd - rStart
val lkhd = VectorSlice.slice (khd, 0, SOME insPos) val lkhd = VectorSlice.slice (khd, 0, SOME insPos)
val rkhd = VectorSlice.slice (khd, insPos, SOME rLen) val rkhd = VectorSlice.slice (khd, rStart, SOME rLen)
val lvhd = VectorSlice.slice (vhd, 0, SOME insPos) val lvhd = VectorSlice.slice (vhd, 0, SOME insPos)
val rvhd = VectorSlice.slice (vhd, insPos, SOME rLen) val rvhd = VectorSlice.slice (vhd, rStart, SOME rLen)
val khd = VectorSlice.concat [lkhd, rkhd] val khd = VectorSlice.concat [lkhd, rkhd]
val vhd = VectorSlice.concat [lvhd, rvhd] val vhd = VectorSlice.concat [lvhd, rvhd]