done with adding/inserting into GapMap

2025-02-12 12:25:35 +00:00
parent 206df031b3
commit 55d20a2b82
1 changed files with 3 additions and 3 deletions
--- a/src/gap_map.sml
+++ b/src/gap_map.sml
@@ -485,11 +485,11 @@ struct
        let
          val rfirst = Vector.sub (hd, 0)
        in
-          if Fn.g (new, rfirst) then 
+          if Fn.g (new, rfirst) then
            insRight (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals)
-          else if Fn.l (new, rfirst) then 
+          else if Fn.l (new, rfirst) then
            insLeft (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals)
-          else 
+          else
            map
        end
    | [] => insLeft (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals)