diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-11-03 11:00:27 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-03 11:00:27 +0100 |
commit | 96a8d73edaa4eba500c440e5d6869fae1af91a12 (patch) | |
tree | a4122ffc69ae991fc0b878af791338a5e91737ce /engine | |
parent | 87f3278ea3520ed2b2a4b355765392550488c1df (diff) | |
parent | c8533911300df8d4897a3109ea30d43be7f430eb (diff) |
Merge PR #6051: Fix FIXME: use OCaml 4.02 generative functors when available.
Diffstat (limited to 'engine')
-rw-r--r-- | engine/evd.ml | 3 | ||||
-rw-r--r-- | engine/geninterp.ml | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index 324f883e8..a668826a7 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -124,8 +124,7 @@ end (* The type of mappings for existential variables *) -module Dummy = struct end -module Store = Store.Make(Dummy) +module Store = Store.Make () type evar = Term.existential_key diff --git a/engine/geninterp.ml b/engine/geninterp.ml index 2a1addcd3..768ef3cfd 100644 --- a/engine/geninterp.ml +++ b/engine/geninterp.ml @@ -9,11 +9,11 @@ open Names open Genarg -module TacStore = Store.Make(struct end) +module TacStore = Store.Make () (** Dynamic toplevel values *) -module ValT = Dyn.Make(struct end) +module ValT = Dyn.Make () module Val = struct |