diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-06-29 10:05:56 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-06-29 10:05:56 +0200 |
| commit | fc4f18c84bfc421dff55c77aa564abc1ea20f528 (patch) | |
| tree | 4a9656e44d957f17a8c342e794a8bf2276ea50f3 /pretyping/vnorm.ml | |
| parent | 092b74035b73780432a1db9588a7ac54ec6a4721 (diff) | |
| parent | e7e3714f0fd0e791501acccca3317ed8175c4815 (diff) | |
Merge PR #7745: Make type Environ.globals abstract + simplify Environ.retroknowledge
Diffstat (limited to 'pretyping/vnorm.ml')
| -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 14c9f49b1..bd6062824 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -79,7 +79,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 (mkIndU indu) tag), + ((Retroknowledge.get_vm_decompile_constant_info env.retroknowledge (mkIndU indu) 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) |