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

add 'env' parameter to gap_map.sml's mapper

Browse Source
This commit is contained in:
Humza Shahid
2025-02-13 12:01:07 +00:00
parent 9749abf1d5
commit aa127b28fd
1 changed files with 29 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/gap_map.sml
View File

@@ -69,16 +69,16 @@ struct
, rightVals: Pair.value vector list , rightVals: Pair.value vector list
} }
fun mapList (hd :: tl, acc) = fun mapList (hd :: tl, acc, env) =
let val hd = Vector.map Map.map hd let val hd = Vector.map (fn el => Map.map (el, env)) hd
in mapList (tl, hd :: acc) in mapList (tl, hd :: acc)
end end
| mapList ([], acc) = List.rev acc | mapList ([], acc, env) = List.rev acc
fun map ({leftKeys, leftVals, rightKeys, rightVals}: t) : t = fun map ({leftKeys, leftVals, rightKeys, rightVals}: t, env) : t =
let let
val leftVals = mapList (leftVals, []) val leftVals = mapList (leftVals, [], env)
val rightVals = mapList (rightVals, []) val rightVals = mapList (rightVals, [], env)
in in
{ leftKeys = leftKeys { leftKeys = leftKeys
, leftVals = leftVals , leftVals = leftVals
@@ -943,9 +943,7 @@ struct
removeRight (toRemove, leftKeys, leftVals, rightKeys, rightVals) removeRight (toRemove, leftKeys, leftVals, rightKeys, rightVals)
end end
| _ => removeLeft (toRemove, leftKeys, leftVals, rightKeys, rightVals) | _ => removeLeft (toRemove, leftKeys, leftVals, rightKeys, rightVals)
end end (* example usage of functor to map over GapMap:
(* example usage of functor to map over GapMap:
structure Pair = structure Pair =
struct struct
type key = int type key = int