1 files changed, 6 insertions, 1 deletions
diff --git a/numeric.c b/numeric.c
index e77c09faaf..8a76b8f1a1 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;
 }