diff options
author | tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2009-07-12 12:09:21 +0000 |
---|---|---|
committer | tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2009-07-12 12:09:21 +0000 |
commit | 898bb1cbe3391dd69093edbbc00f2f164c8457b6 (patch) | |
tree | 44e4c746d7fb0198a4b93ae01fe04a55b9c7a545 /rational.c | |
parent | fff1183ffefc1cc29860672eb39992a942c33dfb (diff) |
* complex.c: use k_exact_{zero,one}_p macro.
* rational.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24036 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'rational.c')
-rw-r--r-- | rational.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/rational.c b/rational.c index 632dc90117..d5a87f6b36 100644 --- a/rational.c +++ b/rational.c @@ -214,6 +214,9 @@ k_rational_p(VALUE x) #define k_exact_p(x) (!k_float_p(x)) #define k_inexact_p(x) k_float_p(x) +#define k_exact_zero_p(x) (k_exact_p(x) && f_zero_p(x)) +#define k_exact_one_p(x) (k_exact_p(x) && f_one_p(x)) + #ifndef NDEBUG #define f_gcd f_gcd_orig #endif @@ -892,7 +895,7 @@ extern VALUE rb_fexpt(VALUE x, VALUE y); static VALUE nurat_expt(VALUE self, VALUE other) { - if (k_exact_p(other) && f_zero_p(other)) + if (k_exact_zero_p(other)) return f_rational_new_bang1(CLASS_OF(self), ONE); if (k_rational_p(other)) { @@ -1051,7 +1054,7 @@ nurat_coerce(VALUE self, VALUE other) 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)) + if (k_exact_zero_p(RCOMPLEX(other)->imag)) return rb_assoc_new(f_rational_new_bang1 (CLASS_OF(self), RCOMPLEX(other)->real), self); } @@ -1882,13 +1885,13 @@ nurat_s_convert(int argc, VALUE *argv, VALUE klass) switch (TYPE(a1)) { case T_COMPLEX: - if (k_exact_p(RCOMPLEX(a1)->imag) && f_zero_p(RCOMPLEX(a1)->imag)) + if (k_exact_zero_p(RCOMPLEX(a1)->imag)) a1 = RCOMPLEX(a1)->real; } switch (TYPE(a2)) { case T_COMPLEX: - if (k_exact_p(RCOMPLEX(a2)->imag) && f_zero_p(RCOMPLEX(a2)->imag)) + if (k_exact_zero_p(RCOMPLEX(a2)->imag)) a2 = RCOMPLEX(a2)->real; } @@ -1923,7 +1926,7 @@ nurat_s_convert(int argc, VALUE *argv, VALUE klass) switch (TYPE(a1)) { case T_RATIONAL: - if (argc == 1 || (k_exact_p(a2) && f_one_p(a2))) + if (argc == 1 || (k_exact_one_p(a2))) return a1; } |