From d894d51442024cc64d8b35ccecba1945d87701a8 Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 24 Oct 2011 11:52:12 +0000 Subject: 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 --- interp/reserve.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'interp/reserve.ml') 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) -- cgit v1.2.3