diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-24 11:52:12 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-24 11:52:12 +0000 |
| commit | d894d51442024cc64d8b35ccecba1945d87701a8 (patch) | |
| tree | 1dac0e09e827957b6413807d61aba1c894c18dc0 /interp/reserve.ml | |
| parent | b72a1d59a6de9e2cab121e9b2a39eb5d92d346f4 (diff) | |
Fixing failing printer when the type of a binder name with implicit
associated type contain evars (call to aconstr_of_glob_constr was not
protected against failure in the presence of evars).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14583 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/reserve.ml')
| -rw-r--r-- | interp/reserve.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/reserve.ml b/interp/reserve.ml index ecceea3bb..6c96e20c1 100644 --- a/interp/reserve.ml +++ b/interp/reserve.ml @@ -91,7 +91,8 @@ let anonymize_if_reserved na t = match na with | Name id as na -> (try if not !Flags.raw_print & - aconstr_of_glob_constr [] [] t = find_reserved_type id + (try aconstr_of_glob_constr [] [] t = find_reserved_type id + with UserError _ -> false) then GHole (dummy_loc,Evd.BinderType na) else t with Not_found -> t) |