From 55d20a2b8225f57a7fb99ee629c0c94ce43b8abc Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Wed, 12 Feb 2025 12:25:35 +0000 Subject: [PATCH] done with adding/inserting into GapMap --- src/gap_map.sml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/gap_map.sml b/src/gap_map.sml index d3f8c4b..ad9a8ca 100644 --- 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)