diff options
| author | Gaëtan Gilbert | 2018-06-22 14:08:49 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-06-28 13:24:43 +0200 |
| commit | e7e3714f0fd0e791501acccca3317ed8175c4815 (patch) | |
| tree | a50c12ccf3e22b7ef2ba25cdf330adc968b3d757 /pretyping/nativenorm.ml | |
| parent | a8c4dee491fdd2426c623ad458ed15310295c93b (diff) | |
Deprecate Environ.retroknowledge function in favor of the projection
Diffstat (limited to 'pretyping/nativenorm.ml')
| -rw-r--r-- | pretyping/nativenorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index 7319846fb3..16d003f675 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -123,7 +123,7 @@ let construct_of_constr_notnative const env tag (mind, _ as ind) u allargs = try if const then let ctyp = type_constructor mind mib u (mip.mind_nf_lc.(0)) params in - retroknowledge Retroknowledge.get_vm_decompile_constant_info env (mkInd ind) tag, ctyp + Retroknowledge.get_vm_decompile_constant_info env.retroknowledge (mkInd ind) tag, ctyp else raise Not_found with Not_found -> |