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

Fixed typo in prepare_ratio_to_float()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-07 20:11:07 +01:00
parent a995a89c1d
commit fb92bca134
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/number.d
View file

@ -675,7 +675,7 @@ prepare_ratio_to_float(cl_object num, cl_object den, int digits, cl_fixnum *scal
MAKE_FIXNUM(-1) :
MAKE_FIXNUM(1);
if (rem == MAKE_FIXNUM(0)) {
if (cl_logbitp(fraction, MAKE_FIXNUM(1))
if (cl_logbitp(MAKE_FIXNUM(1), fraction)
!= Cnil)
fraction = ecl_plus(fraction, one);
} else {