diff options
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 41151eb220..5b9d2ac7c3 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -50,6 +50,7 @@ let pppattern = (fun x -> pp(pr_pattern x)) let pptype = (fun x -> pp(prtype x)) let ppfconstr c = ppterm (Closure.term_of_fconstr c) +let ppbigint n = pp (Bigint.pr_bigint n);; let pP s = pp (hov 0 s) @@ -408,5 +409,3 @@ and ppvblock b = and ppvalues v = open_hovbox 0;ppwhd (whd_val v);close_box(); print_flush() - - |