diff options
| author | Maxime Dénès | 2017-05-25 16:03:10 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-25 16:03:10 +0200 |
| commit | 48d56f49b1db47f393ef3e0f31d1b22adf497afa (patch) | |
| tree | 19a2ba42ff9bd34f082eebd14883708739e996b4 /interp/genintern.ml | |
| parent | 2f75922ad52e334b7bcc3a26c2ecb1602c85fc2f (diff) | |
| parent | 19dce55540ba6b8bff2cf14073ff4112cb5d4ff2 (diff) | |
Merge PR#608: Allow Ltac2 as a plugin
Diffstat (limited to 'interp/genintern.ml')
| -rw-r--r-- | interp/genintern.ml | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/interp/genintern.ml b/interp/genintern.ml index be7abfa995..e443824bd2 100644 --- a/interp/genintern.ml +++ b/interp/genintern.ml @@ -10,9 +10,19 @@ open Names open Mod_subst open Genarg +module Store = Store.Make(struct end) + type glob_sign = { ltacvars : Id.Set.t; - genv : Environ.env } + genv : Environ.env; + extra : Store.t; +} + +let empty_glob_sign env = { + ltacvars = Id.Set.empty; + genv = env; + extra = Store.empty; +} type ('raw, 'glb) intern_fun = glob_sign -> 'raw -> glob_sign * 'glb type 'glb subst_fun = substitution -> 'glb -> 'glb |