From ea2c82e774b796c6aeda1d1a6b16f5168236e404 Mon Sep 17 00:00:00 2001 From: tadf Date: Wed, 17 Jun 2009 14:49:10 +0000 Subject: * rational.c (nurat_coerce): accepts Complex when the imag is exact zero. git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@23727 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 5 +++++ rational.c | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/ChangeLog b/ChangeLog index 12c72352c..2f403efd4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Wed Jun 17 23:46:08 2009 Tadayoshi Funaba + + * rational.c (nurat_coerce): accepts Complex when the imag is + exact zero. + Wed Jun 17 21:25:54 2009 Tadayoshi Funaba * bignum.c (rb_big_fdiv): checks whether the given second argument diff --git a/rational.c b/rational.c index de676dc47..a75235f65 100644 --- a/rational.c +++ b/rational.c @@ -902,6 +902,10 @@ nurat_coerce(VALUE self, VALUE other) return rb_assoc_new(other, f_to_f(self)); case T_RATIONAL: return rb_assoc_new(other, self); + case T_COMPLEX: + if (k_exact_p(RCOMPLEX(other)->imag) && f_zero_p(RCOMPLEX(other)->imag)) + return rb_assoc_new(f_rational_new_bang1 + (CLASS_OF(self), RCOMPLEX(other)->real), self); } rb_raise(rb_eTypeError, "%s can't be coerced into %s", -- cgit