diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-01-30 10:45:03 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-05 12:51:52 +0100 |
| commit | d041f19a7274b6065ca3ef565f0d8b8be08ef0d7 (patch) | |
| tree | 283194e5249935fb30580e7353e82072ea9caffd /kernel/nativevalues.ml | |
| parent | 76579aff8f8534cbc990b5ea2652b33655512213 (diff) | |
[native_compute] Fix handling of evars in conversion
Diffstat (limited to 'kernel/nativevalues.ml')
| -rw-r--r-- | kernel/nativevalues.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml index 95a8fc5a4..3d47b1672 100644 --- a/kernel/nativevalues.ml +++ b/kernel/nativevalues.ml @@ -61,7 +61,7 @@ type atom = | Acofixe of t array * t array * int * t | Aprod of Name.t * t * (t -> t) | Ameta of metavariable * t - | Aevar of existential * t + | Aevar of Evar.t * t * t array | Aproj of Constant.t * accumulator let accumulate_tag = 0 @@ -132,8 +132,8 @@ let mk_prod_accu s dom codom = let mk_meta_accu mv ty = mk_accu (Ameta (mv,ty)) -let mk_evar_accu ev ty = - mk_accu (Aevar (ev,ty)) +let mk_evar_accu ev ty args = + mk_accu (Aevar (ev,ty,args)) let mk_proj_accu kn c = mk_accu (Aproj (kn,c)) |