Mercurial > hg > xemacs-beta

changeset 5903:5afddd952c46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Return ratios in canonical form too, #'string-to-number src/ChangeLog addition: 2015-05-08 Aidan Kehoe <kehoea@parhasard.net> * data.c (Fstring_to_number): Canonicalise ratios in this function, as we do bignums.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 08 May 2015 13:58:22 +0100
parents 2dc8711af537
children ee27ca517e90
files src/ChangeLog src/data.c
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Fri May 08 12:47:13 2015 +0100
+++ b/src/ChangeLog	Fri May 08 13:58:22 2015 +0100
@@ -1,3 +1,8 @@
+2015-05-08  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* data.c (Fstring_to_number):
+	Canonicalise ratios in this function, as we do bignums.
+
 2015-05-08  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* chartab.h (get_char_table):
--- a/src/data.c	Fri May 08 12:47:13 2015 +0100
+++ b/src/data.c	Fri May 08 13:58:22 2015 +0100
@@ -1361,7 +1361,7 @@
       ratio_set_string (scratch_ratio, (const char *) p, b);
       *end = save;
       ratio_canonicalize (scratch_ratio);
-      return make_ratio_rt (scratch_ratio);
+      return Fcanonicalize_number (make_ratio_rt (scratch_ratio));
     }
 #endif /* HAVE_RATIO */