diff options
-rw-r--r-- | interp/reserve.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/reserve.ml b/interp/reserve.ml index 85f188599..39ba6d6fd 100644 --- a/interp/reserve.ml +++ b/interp/reserve.ml @@ -84,7 +84,7 @@ let rec unloc = function let anonymize_if_reserved na t = match na with | Name id as na -> (try - if unloc t = find_reserved_type id + if not !Options.raw_print & unloc t = find_reserved_type id then RHole (dummy_loc,Evd.BinderType na) else t with Not_found -> t) |