diff options
| author | letouzey | 2012-07-30 13:45:33 +0000 |
|---|---|---|
| committer | letouzey | 2012-07-30 13:45:33 +0000 |
| commit | 00f429861cc6bae9110d82aac2512fe5e55342bc (patch) | |
| tree | d553d4078538a4b893d26ef789f234cf86739004 /dev | |
| parent | b272730e00933e1542ee7209597ea1d35a001033 (diff) | |
Bigint: avoid dependency over Pp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15664 85f007b7-540e-0410-9357-904b9bb8a0f7
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 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)) |