diff options
Diffstat (limited to 'complex.c')
| -rw-r--r-- | complex.c | 16 |
1 files changed, 12 insertions, 4 deletions
@@ -1124,15 +1124,23 @@ nucomp_cmp(VALUE self, VALUE other) if (!k_numeric_p(other)) { return rb_num_coerce_cmp(self, other, idCmp); } - if (nucomp_real_p(self)) { - if (RB_TYPE_P(other, T_COMPLEX) && nucomp_real_p(other)) { + if (!nucomp_real_p(self)) { + return Qnil; + } + if (RB_TYPE_P(other, T_COMPLEX)) { + if (nucomp_real_p(other)) { get_dat2(self, other); return rb_funcall(adat->real, idCmp, 1, bdat->real); } - else if (f_real_p(other)) { - get_dat1(self); + } + else { + get_dat1(self); + if (f_real_p(other)) { return rb_funcall(dat->real, idCmp, 1, other); } + else { + return rb_num_coerce_cmp(dat->real, other, idCmp); + } } return Qnil; } |
