From 00f429861cc6bae9110d82aac2512fe5e55342bc Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 30 Jul 2012 13:45:33 +0000
Subject: Bigint: avoid dependency over Pp

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15664 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/top_printers.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 570ad59ff1..d0b358d8ea 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -64,7 +64,7 @@ let pptype = (fun x -> try pp(pr_ltype x) with e -> pp (str (Printexc.to_string
 
 let ppfconstr c = ppconstr (Closure.term_of_fconstr c)
 
-let ppbigint n = pp (Bigint.pr_bigint n);;
+let ppbigint n = pp (str (Bigint.to_string n));;
 
 let prset pr l = str "[" ++ hov 0 (prlist_with_sep spc pr l) ++ str "]"
 let ppintset l = pp (prset int (Intset.elements l))
-- 
cgit v1.2.3