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

src/gap_map.sml

@@ -69,16 +69,16 @@ struct
     , 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)
         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
-      val leftVals = mapList (leftVals, [])
+      val leftVals = mapList (leftVals, [], env)
-      val rightVals = mapList (rightVals, [])
+      val rightVals = mapList (rightVals, [], env)
     in
       { leftKeys = leftKeys
       , leftVals = leftVals
@@ -943,11 +943,9 @@ struct
             removeRight (toRemove, leftKeys, leftVals, rightKeys, rightVals)
         end
     | _ => removeLeft (toRemove, leftKeys, leftVals, rightKeys, rightVals)
-end
+end (* example usage of functor to map over GapMap:
-
+    structure Pair =
-(* example usage of functor to map over GapMap:
+    struct
-structure Pair =
-struct
       type key = int
       type value = int
     
@@ -956,15 +954,15 @@ struct
       fun g (a: int, b: int) = a > b
     
       val maxNodeSize = 1024
-end
+    end
     
-structure IntPair = MakeGapMap(Pair)
+    structure IntPair = MakeGapMap(Pair)
     
-structure IntMap =
+    structure IntMap =
       MakeGapMapMapper
         (struct
            structure Pair = Pair
            type env = ()
            fun map x () = x * 5
          end)
-*)
+    *)