diff src/data.c @ 5903:5afddd952c46

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 c96000075e49
children 85fd1ab80057
line wrap: on
line diff
--- 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 */