diff options
| author | Pierre-Marie Pédrot | 2014-03-05 12:06:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-03-14 23:28:16 +0100 |
| commit | e2f27dfcb21c42b72cf8d6a1363251f4c48789cb (patch) | |
| tree | 1bd114ab10ca7c0db82fcdbc0974603840795b9c /pretyping | |
| parent | 2a6b7b0dc7093f5706b7a6ebe826b45a5fd8858a (diff) | |
Changing Retrokwnoledge entry type from kind_of_term to constr. It seems it had
no particular purpose.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/vnorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index 8269674d7c..b2fa631cd8 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -71,7 +71,7 @@ let construct_of_constr const env tag typ = (* spiwack : here be a branch for specific decompilation handled by retroknowledge *) try if const then - ((retroknowledge Retroknowledge.get_vm_decompile_constant_info env (Ind ind) tag), + ((retroknowledge Retroknowledge.get_vm_decompile_constant_info env (mkInd ind) tag), typ) (*spiwack: this may need to be changed in case there are parameters in the type which may cause a constant value to have an arity. (type_constructor seems to be all about parameters actually) |