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:06:20 +00:00
parent 9c32e53160
commit f3cc41e9a2
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/gap_map.sml
View File

@@ -46,6 +46,7 @@ end
signature MAPPER = signature MAPPER =
sig sig
structure Map: MAP
structure Pair: GAP_MAP_PAIR structure Pair: GAP_MAP_PAIR
type t = type t =
@@ -55,11 +56,12 @@ sig
, rightVals: Pair.value vector list , rightVals: Pair.value vector list
} }
val map: t -> t val map: t * Map.env -> t
end end
functor MakeGapMapMapper(Map: MAP): MAPPER = functor MakeGapMapMapper(Map: MAP): MAPPER =
struct struct
structure Map = Map
structure Pair = Map.Pair structure Pair = Map.Pair
type t = type t =