From a98ce90708c0a7084da16b773a6e2fd668bec767 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 15 Apr 2004 01:24:00 +0000
Subject: [PATCH] (xisinf): Add a comment about solaris 7 lacking isinf.

---
 libguile/numbers.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 91d603cef..f5c5457ab 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -124,6 +124,9 @@ isinf (double x)
 #define xmpz_cmp_d(z, d)  mpz_cmp_d (z, d)
 #endif
 
+/* For reference, sparc solaris 7 has infinities (IEEE) but doesn't have
+   isinf.  It does have finite and isnan though, hence the use of those.
+   fpclass would be a possibility on that system too.  */
 static int
 xisinf (double x)
 {