diff options
| author | Maxime Dénès | 2019-04-29 17:35:06 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-04-29 17:42:10 +0200 |
| commit | ace68d056551a4a2834d1d4908375dba7a1fbc44 (patch) | |
| tree | 63583c7f8caebaac05339d10042bcafc6caa463e | |
| parent | af3673b08204cb4d3d6994aa3a5bd6363bfd7459 (diff) | |
Fix variant of #9344 for native_compute
| -rw-r--r-- | pretyping/nativenorm.ml | 2 | ||||
| -rw-r--r-- | test-suite/bugs/closed/bug_9344.v | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index e694502231..0fcd6a9e9d 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -415,7 +415,7 @@ and nf_predicate env sigma ind mip params v pT = and nf_evar env sigma evk args = let evi = try Evd.find sigma evk with Not_found -> assert false in let hyps = Environ.named_context_of_val (Evd.evar_filtered_hyps evi) in - let ty = EConstr.Unsafe.to_constr @@ Evd.evar_concl evi in + let ty = EConstr.to_constr ~abort_on_undefined_evars:false sigma @@ Evd.evar_concl evi in if List.is_empty hyps then begin assert (Int.equal (Array.length args) 0); mkEvar (evk, [||]), ty diff --git a/test-suite/bugs/closed/bug_9344.v b/test-suite/bugs/closed/bug_9344.v index fbf86b2dad..0d44c9721a 100644 --- a/test-suite/bugs/closed/bug_9344.v +++ b/test-suite/bugs/closed/bug_9344.v @@ -1 +1,2 @@ Compute _ I. +Eval native_compute in _ I. |