diff options
-rw-r--r-- | complex.c | 2 | ||||
-rw-r--r-- | rational.c | 7 |
2 files changed, 8 insertions, 1 deletions
@@ -376,6 +376,8 @@ nucomp_canonicalization(int f) { canonicalization = f; } +#else +# define canonicalization <<<No canonicalization>>> #endif inline static void diff --git a/rational.c b/rational.c index 1582f116bb..652f5ace09 100644 --- a/rational.c +++ b/rational.c @@ -494,6 +494,8 @@ nurat_canonicalization(int f) { canonicalization = f; } +#else +# define canonicalization <<<No canonicalization>>> #endif inline static void @@ -1867,10 +1869,13 @@ numeric_quo(VALUE x, VALUE y) return f_fdiv(x, y); } +#ifdef CANON if (canonicalization) { x = rb_rational_raw1(x); } - else { + else +#endif + { x = rb_convert_type(x, T_RATIONAL, "Rational", "to_r"); } return rb_funcall(x, '/', 1, y); |