From a360a355176ab42154bdd5df6fd13278d3b1d13e Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sat, 22 Sep 2001 21:42:14 +0000
Subject: [PATCH] * num2float.i.c: New file, multiply included by numbers.c,
 used to "templatize" the float <-> num conversion routines.

* numbers.c: New functions: scm_num2float, scm_float2num,
scm_num2double, scm_double2num.
---
 libguile/numbers.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 30349f456..d7b2f11a3 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -4305,6 +4305,16 @@ scm_i_big2dbl (SCM b)
 
 #endif /* HAVE_LONG_LONGS */
 
+#define NUM2FLOAT scm_num2float
+#define FLOAT2NUM scm_float2num
+#define FTYPE float
+#include "libguile/num2float.i.c"
+
+#define NUM2FLOAT scm_num2double
+#define FLOAT2NUM scm_double2num
+#define FTYPE double
+#include "libguile/num2float.i.c"
+
 #ifdef GUILE_DEBUG
 
 #define CHECK(type, v) \