diff options
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 = |