aboutsummaryrefslogtreecommitdiff
path: root/plugins/syntax/r_syntax.ml
diff options
context:
space:
mode:
authorPierre Roux2020-03-28 11:07:54 +0100
committerPierre Roux2020-05-09 17:58:00 +0200
commitdeb2607027c158d313b82846c67594067194c8b7 (patch)
tree66f51f9b6aee5b028ab0c4ce7985259c7710b5f4 /plugins/syntax/r_syntax.ml
parent97567ffeb0e41ca5d0ee523e30a7ac0dfdbebddd (diff)
Rename functions
"decimal" would no longer be an appropriate name when extending to hexadecimal for instance.
Diffstat (limited to 'plugins/syntax/r_syntax.ml')
-rw-r--r--plugins/syntax/r_syntax.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/syntax/r_syntax.ml b/plugins/syntax/r_syntax.ml
index c4e9c8b73d..b5f11d9025 100644
--- a/plugins/syntax/r_syntax.ml
+++ b/plugins/syntax/r_syntax.ml
@@ -163,7 +163,7 @@ let rawnum_of_r c =
else "0", String.make (e - ni) '0' ^ i in
let i = s, NumTok.UnsignedNat.of_string i in
let f = NumTok.UnsignedNat.of_string f in
- NumTok.Signed.of_decimal_and_exponent i (Some f) None in
+ NumTok.Signed.of_int_frac_and_exponent i (Some f) None in
if choose_exponent then numTok_exponent () else numTok_dot () in
match DAst.get c with
| GApp (r, [a]) when is_gr r glob_IZR ->