From 232898d93d67b60758d7ccbaf62b672ca8f902fa Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Mon, 6 May 2002 22:27:42 +0000
Subject: [PATCH] Conditionally include floatingpoint.h, ieeefp.h, and nan.h.
 Provide declarations for scm_inf_p, scm_nan_p, scn_inf, and scm_nan.

---
 libguile/numbers.h | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/libguile/numbers.h b/libguile/numbers.h
index 1866a8f37..c8ec73530 100644
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -49,6 +49,24 @@
 #include "libguile/__scm.h"
 #include "libguile/print.h"
 
+#if defined (HAVE_FLOATINGPOINT_H)
+#include <floatingpoint.h>
+#endif
+
+#if defined (HAVE_IEEEFP_H)
+#include <ieeefp.h>
+#endif
+
+#if defined (HAVE_NAN_H)
+#if defined (SCO)
+#define _IEEE 1
+#endif
+#include <nan.h>
+#if defined (SCO)
+#undef _IEEE
+#endif
+#endif
+
 
 
 /* Immediate Numbers, also known as fixnums
@@ -202,6 +220,10 @@ typedef struct scm_t_complex
 SCM_API SCM scm_exact_p (SCM x);
 SCM_API SCM scm_odd_p (SCM n);
 SCM_API SCM scm_even_p (SCM n);
+SCM_API SCM scm_inf_p (SCM n);
+SCM_API SCM scm_nan_p (SCM n);
+SCM_API SCM scm_inf (void);
+SCM_API SCM scm_nan (void);
 SCM_API SCM scm_abs (SCM x);
 SCM_API SCM scm_quotient (SCM x, SCM y);
 SCM_API SCM scm_remainder (SCM x, SCM y);