summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2001-09-22 21:39:42 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2001-09-22 21:39:42 +0000
commit5437598b36938332d3a0813b4311ec7f700a8db7 (patch)
treed63d0ad85beb0a87403a40cc7035e946200dfffa /libguile/numbers.c
parentb21cccf315b4a20d19ac064d5b4b98921e57f108 (diff)
downloadguile-5437598b36938332d3a0813b4311ec7f700a8db7.tar.gz
* Makefile.am: Distribute num2float.i.c.
* 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.
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 1c26b91be..596bacb33 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -4365,6 +4365,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) \