Commit 055eab2c authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Renamed [Maps.ConsecutiveIntegerKeysToImperativeMaps] to [Maps.ArrayAsImperativeMaps].

parent b392d19b
...@@ -86,7 +86,7 @@ module ImperativeMapsToImperativeMap ...@@ -86,7 +86,7 @@ module ImperativeMapsToImperativeMap
end end
module ConsecutiveIntegerKeysToImperativeMaps module ArrayAsImperativeMaps
(K : sig val n: int end) (K : sig val n: int end)
: IMPERATIVE_MAPS with type key = int : IMPERATIVE_MAPS with type key = int
and type 'data t = 'data option array and type 'data t = 'data option array
......
...@@ -58,7 +58,7 @@ module ImperativeMapsToImperativeMap ...@@ -58,7 +58,7 @@ module ImperativeMapsToImperativeMap
(* An implementation of imperative maps as arrays is possible if keys (* An implementation of imperative maps as arrays is possible if keys
are consecutive integers. *) are consecutive integers. *)
module ConsecutiveIntegerKeysToImperativeMaps module ArrayAsImperativeMaps
(K : sig val n: int end) (K : sig val n: int end)
: IMPERATIVE_MAPS with type key = int : IMPERATIVE_MAPS with type key = int
and type 'data t = 'data option array and type 'data t = 'data option array
......
...@@ -849,7 +849,7 @@ end = struct ...@@ -849,7 +849,7 @@ end = struct
module F = module F =
Fix.Make Fix.Make
(Maps.ConsecutiveIntegerKeysToImperativeMaps(Nonterminal)) (Maps.ArrayAsImperativeMaps(Nonterminal))
(P) (P)
let nonterminal = let nonterminal =
...@@ -904,7 +904,7 @@ let solve (eqs : equations) : Nonterminal.t -> TerminalSet.t = ...@@ -904,7 +904,7 @@ let solve (eqs : equations) : Nonterminal.t -> TerminalSet.t =
let module F = let module F =
Fix.Make Fix.Make
(Maps.ConsecutiveIntegerKeysToImperativeMaps(Nonterminal)) (Maps.ArrayAsImperativeMaps(Nonterminal))
(TerminalSet) (TerminalSet)
in in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment