Ajout printer bigint

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6523 85f007b7-540e-0410-9357-904b9bb8a0f7

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()
-
-