diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index b7736f4987..8290ca945f 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -109,7 +109,7 @@ let ppididmap = ppidmap (fun _ -> pr_id) let prconstrunderbindersidmap = pridmap (fun _ (l,c) -> hov 1 (str"[" ++ prlist_with_sep spc Id.print l ++ str"]") - ++ str "," ++ spc () ++ Termops.print_constr c) + ++ str "," ++ spc () ++ Termops.print_constr (EConstr.Unsafe.to_constr c)) let ppconstrunderbindersidmap l = pp (prconstrunderbindersidmap l) |