@@ -756,9 +756,9 @@ module AdaptiveHashMapImplementation =
756756
757757 HashMapDelta.ofHashMap changes
758758
759- /// Reader for batchRecalc operations.
759+ /// Reader for batchMap operations.
760760 [<Sealed>]
761- type BatchRecalculateDirty < 'k , 'a , 'b >( input : amap < 'k , 'a >, mapping : HashMap < 'k , 'a > -> HashMap < 'k , aval < 'b >>) =
761+ type BatchMap < 'k , 'a , 'b >( input : amap < 'k , 'a >, mapping : HashMap < 'k , 'a > -> HashMap < 'k , aval < 'b >>) =
762762 inherit AbstractReader< HashMapDelta< 'k, 'b>>( HashMapDelta.empty)
763763
764764 let reader = input.GetReader()
@@ -1415,17 +1415,17 @@ module AMap =
14151415 else
14161416 create ( fun () -> MapAReader( map, mapping))
14171417
1418- /// Adaptively applies the given mapping to all changes and reapplies mapping on dirty outputs
1419- let batchRecalcDirty ( mapping : HashMap < 'K , 'T1 > -> HashMap < 'K , aval < 'T2 >>) ( map : amap < 'K , 'T1 >) =
1418+ /// Adaptively applies the given mapping to batches of all changes and reapplies mapping on dirty outputs
1419+ let batchMap ( mapping : HashMap < 'K , 'T1 > -> HashMap < 'K , aval < 'T2 >>) ( map : amap < 'K , 'T1 >) =
14201420 if map.IsConstant then
14211421 let map = force map |> mapping
14221422 if map |> HashMap.forall ( fun _ v -> v.IsConstant) then
14231423 constant ( fun () -> map |> HashMap.map ( fun _ v -> AVal.force v))
14241424 else
14251425 // TODO better impl possible
1426- create ( fun () -> BatchRecalculateDirty ( ofHashMap map, id))
1426+ create ( fun () -> BatchMap ( ofHashMap map, id))
14271427 else
1428- create ( fun () -> BatchRecalculateDirty ( map, mapping))
1428+ create ( fun () -> BatchMap ( map, mapping))
14291429
14301430
14311431 /// Adaptively chooses all elements returned by mapping.
0 commit comments