diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/bignat.ml | 3 | ||||
| -rw-r--r-- | lib/bignat.mli | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/bignat.ml b/lib/bignat.ml index bac8796446..348b1225bf 100644 --- a/lib/bignat.ml +++ b/lib/bignat.ml @@ -111,3 +111,6 @@ let pr_bigint = function | POS n -> str (to_string n) | NEG n -> str "-" ++ str (to_string n) +let bigint_to_string = function + | POS n -> to_string n + | NEG n -> "-" ^ (to_string n);; diff --git a/lib/bignat.mli b/lib/bignat.mli index d901f556fe..ca2b0fff6b 100644 --- a/lib/bignat.mli +++ b/lib/bignat.mli @@ -33,4 +33,5 @@ val less_than : bignat -> bignat -> bool type bigint = POS of bignat | NEG of bignat +val bigint_to_string : bigint -> string val pr_bigint : bigint -> std_ppcmds |