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