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

Fixed typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-13 14:38:55 +01:00
parent e85ae8d20c
commit d72d2685bd
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

@ -815,7 +815,7 @@ ratio_to_long_double(cl_object num, cl_object den)
#ifdef WITH_GMP
cl_fixnum scale;
cl_object bits = prepare_ratio_to_float(num, den, LDBL_MANT_DIG, &scale);
long double output = ecl_to_lon_double(bits);
long double output = ecl_to_long_double(bits);
return ldexpl(output, scale);
#else
return (long double)(FIXNUMP(num) ? fix(num) : num->big.big_num) /