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