diff options
| author | msozeau | 2009-06-18 22:35:38 +0000 |
|---|---|---|
| committer | msozeau | 2009-06-18 22:35:38 +0000 |
| commit | 0bb73a5c4b5264ed3c8a7243a818368083602e25 (patch) | |
| tree | 200661003cbf438cda168442801da20229e35d6c /toplevel | |
| parent | 9346d0b22d34a48b16f46c663064808063afb4a2 (diff) | |
Use more consistent resolution parameters in Program and regular typing
and add an optional fail_evar flag to control resolution better in
interpretation functions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12197 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index d2eed98e45..910a2526af 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -105,8 +105,8 @@ let constant_entry_of_com (bl,com,comtypopt,opacity,boxed) = let ty = generalize_constr_expr comtyp bl in let b = abstract_constr_expr com bl in let evdref = ref Evd.empty in - let ty, impls = interp_type_evars_impls ~evdref env ty in - let b, imps = interp_casted_constr_evars_impls ~evdref env b ty in + let ty, impls = interp_type_evars_impls ~evdref ~fail_evar:false env ty in + let b, imps = interp_casted_constr_evars_impls ~evdref ~fail_evar:false env b ty in let body, typ = nf_isevar !evdref b, nf_isevar !evdref ty in check_evars env Evd.empty !evdref body; check_evars env Evd.empty !evdref typ; |