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/nativelambda.ml | |
| parent | 76579aff8f8534cbc990b5ea2652b33655512213 (diff) | |
[native_compute] Fix handling of evars in conversion
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index b333b0fb9..29b3e59da 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -453,11 +453,12 @@ let rec lambda_of_constr env sigma c = let ty = meta_type sigma mv in Lmeta (mv, lambda_of_constr env sigma ty) - | Evar ev -> + | Evar (evk,args as ev) -> (match evar_value sigma ev with | None -> let ty = evar_type sigma ev in - Levar(ev, lambda_of_constr env sigma ty) + let args = Array.map (lambda_of_constr env sigma) args in + Levar(evk, lambda_of_constr env sigma ty, args) | Some t -> lambda_of_constr env sigma t) | Cast (c, _, _) -> lambda_of_constr env sigma c |