mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

* num2float.i.c: New file, multiply included by numbers.c, used

Browse source 
to "templatize" the float <-> num conversion routines.

* numbers.c: New functions: scm_num2float, scm_float2num,
scm_num2double, scm_double2num.
This commit is contained in:
Mikael Djurfeldt 2001-09-22 21:42:14 +00:00
parent 287c2ee7c2
commit a360a35517
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/numbers.c
View file

@ -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) \