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 in #ifdef that only affected builds with --enable-long-double

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-13 13:42:56 +01:00
parent 5bd1fdbea6
commit e85ae8d20c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/number.d
View file

@ -808,7 +808,7 @@ ratio_to_double(cl_object num, cl_object den)
#endif
}
#ifdef ECL_LONG_DOUBLE
#ifdef ECL_LONG_FLOAT
static long double
ratio_to_long_double(cl_object num, cl_object den)
{
@ -822,7 +822,7 @@ ratio_to_long_double(cl_object num, cl_object den)
(long double)(FIXNUMP(den) ? fix(den) : den->big.big_num);
#endif
}
#endif /* ECL_LONG_DOUBLE */
#endif /* ECL_LONG_FLOAT */
double
ecl_to_double(cl_object x)