summaryrefslogtreecommitdiff
path: root/numeric.c
diff options
context:
space:
mode:
Diffstat (limited to 'numeric.c')
-rw-r--r--numeric.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/numeric.c b/numeric.c
index e77c09f..8a76b8f 100644
--- a/numeric.c
+++ b/numeric.c
@@ -758,9 +758,14 @@ flo_is_finite_p(num)
{
double value = RFLOAT(num)->value;
+#if HAVE_FINITE
+ if (!finite(value))
+ return Qfalse;
+#else
if (isinf(value) || isnan(value))
return Qfalse;
-
+#endif
+
return Qtrue;
}