From deb2607027c158d313b82846c67594067194c8b7 Mon Sep 17 00:00:00 2001
From: Pierre Roux
Date: Sat, 28 Mar 2020 11:07:54 +0100
Subject: Rename functions

"decimal" would no longer be an appropriate name when extending to
hexadecimal for instance.
---
 plugins/syntax/float_syntax.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/syntax/float_syntax.ml')

diff --git a/plugins/syntax/float_syntax.ml b/plugins/syntax/float_syntax.ml
index e0a9906689..0a5825dfc1 100644
--- a/plugins/syntax/float_syntax.ml
+++ b/plugins/syntax/float_syntax.ml
@@ -42,7 +42,7 @@ let interp_float ?loc n =
     | Float64.(PZero | NZero) -> not (NumTok.Signed.is_zero n)
     | Float64.(PNormal | NNormal | PSubn | NSubn) ->
        let m, e =
-         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 = NumTok.UnsignedNat.to_string i in
          let f = match f with
            | None -> "" | Some f -> NumTok.UnsignedNat.to_string f in
-- 
cgit v1.2.3