diff options
Diffstat (limited to 'contrib/dp/dp.ml')
-rw-r--r-- | contrib/dp/dp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/dp/dp.ml b/contrib/dp/dp.ml index f25794e80..32b39b03d 100644 --- a/contrib/dp/dp.ml +++ b/contrib/dp/dp.ml @@ -172,7 +172,7 @@ let rec_names_for c = | Name id -> let c' = Names.make_con mp dp (label_of_id id) in ignore (Global.lookup_constant c'); - msgnl (Ppconstr.pr_term (mkConst c')); + msgnl (Printer.pr_constr (mkConst c')); c' | Anonymous -> raise Not_found) |