* rational.c (float_to_r): always returns rational.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23892 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,7 @@
+Mon Jun 29 20:29:11 2009  Tadayoshi Funaba  <tadf@dotrb.org>
+
+	* rational.c (float_to_r): always returns rational.
+
 Mon Jun 29 18:55:55 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* dln.c (dln_find_1): fix for files with dots.  [ruby-dev:38588]

rational.c

@@ -1680,7 +1680,7 @@ float_to_r(VALUE self)
     VALUE f, n;
 
     float_decode_internal(self, &f, &n);
-    return f_mul(f, f_expt(INT2FIX(FLT_RADIX), n));
+    return f_to_r(f_mul(f, f_expt(INT2FIX(FLT_RADIX), n)));
 }
 
 static VALUE rat_pat, an_e_pat, a_dot_pat, underscores_pat, an_underscore;