Rename functions

"decimal" would no longer be an appropriate name when extending to
hexadecimal for instance.

1 files changed, 2 insertions, 2 deletions

diff --git a/interp/notation.ml b/interp/notation.ml
index 7761606f11..63c539d0eb 100644
--- a/interp/notation.ml
+++ b/interp/notation.ml
@@ -626,7 +626,7 @@ let coqint_of_rawnum inds (sign,n) =
   mkApp (mkConstruct (inds.int, pos_neg), [|uint|])
 
 let coqdecimal_of_rawnum inds n =
-  let i, f, e = NumTok.Signed.to_decimal_and_exponent n in
+  let i, f, e = NumTok.Signed.to_int_frac_and_exponent n in
   let i = coqint_of_rawnum inds.int i in
   let f = coquint_of_rawnum inds.int.uint f in
   match e with
@@ -669,7 +669,7 @@ let rawnum_of_decimal c =
     let n = rawnum_of_coqint i in
     let f = try Some (rawnum_of_coquint f) with NotAValidPrimToken -> None in
     let e = match e with None -> None | Some e -> Some (rawnum_of_coqint e) in
-    NumTok.Signed.of_decimal_and_exponent n f e in
+    NumTok.Signed.of_int_frac_and_exponent n f e in
   match Constr.kind c with
   | App (_,[|i; f|]) -> of_ife i f None
   | App (_,[|i; f; e|]) -> of_ife i f (Some e)