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

number comparison: fix check for infinity (typo)

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-06 09:47:16 +01:00
parent fd24c923d3
commit 626f4829bb
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/numbers/number_compare.d
View file

@ -81,7 +81,7 @@ ecl_number_compare(cl_object x, cl_object y)
case t_longfloat:
#endif
#ifdef ECL_IEEE_FP
if (si_float_infinity_p(y))
if (ecl_float_infinity_p(y))
return(ecl_number_compare(ecl_make_fixnum(0), y));
#endif
y = cl_rational(y);
@ -107,7 +107,7 @@ ecl_number_compare(cl_object x, cl_object y)
case t_longfloat:
#endif
#ifdef ECL_IEEE_FP
if (si_float_infinity_p(y))
if (ecl_float_infinity_p(y))
return(ecl_number_compare(ecl_make_fixnum(0), y));
#endif
y = cl_rational(y);
@ -127,7 +127,7 @@ ecl_number_compare(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
#ifdef ECL_IEEE_FP
if (si_float_infinity_p(x))
if (ecl_float_infinity_p(x))
return(ecl_number_compare(x, ecl_make_fixnum(0)));
#endif
x = cl_rational(x);