mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

No need to divide when there is no common denominator

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-03-01 23:19:47 +01:00
parent 0490d915be
commit fb7ef0c3b4
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/number.d
View file

@ -316,8 +316,10 @@ ecl_make_ratio(cl_object num, cl_object den)
den = ecl_negate(den);
}
g = ecl_gcd(num, den);
num = ecl_integer_divide(num, g);
den = ecl_integer_divide(den, g);
if (g != MAKE_FIXNUM(1)) {
num = ecl_integer_divide(num, g);
den = ecl_integer_divide(den, g);
}
if (den == MAKE_FIXNUM(1))
return num;
if (den == MAKE_FIXNUM(-1))