diff options
| author | msozeau | 2009-06-22 18:28:18 +0000 |
|---|---|---|
| committer | msozeau | 2009-06-22 18:28:18 +0000 |
| commit | 604a07a7d425aa4b89bcd391c083d8600c71c5b5 (patch) | |
| tree | fb6a3b161207b062eda89a58fbd54519b89c2427 /interp | |
| parent | b0a8a08682c8f9c8f3457adef403c48f8fc011ac (diff) | |
Fixes for r12197, the refined evars were not returned in case fail_evar
was true.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12206 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index f3a2b6e0ed..d8c4a70678 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1252,10 +1252,7 @@ let interp_constr_evars_gen_impls ?evdref ?(fail_evar=true) in let c = intern_gen (kind=IsType) ~impls !evdref env c in let imps = Implicit_quantifiers.implicits_of_rawterm c in - if fail_evar then - Default.understand_gen kind !evdref env c, imps - else - Default.understand_tcc_evars evdref env kind c, imps + Default.understand_tcc_evars ~fail_evar evdref env kind c, imps let interp_casted_constr_evars_impls ?evdref ?(fail_evar=true) env ?(impls=([],[])) c typ = |