From 626f4829bb71a114776918eecd2527b353b88e95 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 6 Dec 2016 09:47:16 +0100 Subject: [PATCH] number comparison: fix check for infinity (typo) --- src/c/numbers/number_compare.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/c/numbers/number_compare.d b/src/c/numbers/number_compare.d index c8e7e5e5e..88a9d6db7 100644 --- a/src/c/numbers/number_compare.d +++ b/src/c/numbers/number_compare.d @@ -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);