diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-09-22 21:39:42 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-09-22 21:39:42 +0000 |
commit | 5437598b36938332d3a0813b4311ec7f700a8db7 (patch) | |
tree | d63d0ad85beb0a87403a40cc7035e946200dfffa /libguile/numbers.c | |
parent | b21cccf315b4a20d19ac064d5b4b98921e57f108 (diff) | |
download | guile-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.c | 10 |
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) \ |